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ABSTRACT 


A Two-Step Approach for calculating slow and complex chemistry in inho- 
mogeneous turbulent reactive flows, specifically in a direct injection 
diesel engine, was developed and evaluated. The first step in this 
approach is to complete a Multi-Dimensional Model (MDM) solution of the 
reactive flow. This was accomplished for a direct-injection diesel 
using the KIVA computer code developed at the Los Alamos National Labor- 
atory. The output of this solution is used to define zones within the 
flow, and to calculate zone processes and mass flow between zones. A 
Stochastic Mixing Model (SMM) computer code was developed to recalculate 
turbulent mixing and chemistry using the MDM information. The SMM gen- 
erates distributions of turbulent properties within each zone which are 
necessary to calculate slow emissions chemistry. The submodels included 
in the SMM are not intended to be unique, but only to represent one 
example of how this approach might be applied. 


This approach was evaluated for consistency by analyzing zone property 
distributions, the effect of changing zone boundaries, the effect of in- 
creasing the number of zones and the variance of SMM results over multi- 
ple stochastic runs. The standard deviation of pressure, soot and Ni- 
tric Oxide (NO) decreased and meann values and distributions approached 
asymptotic limits with more elements and more zones. These results are 
consistent with the structure of the stochastic model. The approach was 
evaluated for accuracy by comparison to experimental results with dif- 
ferent engine operating conditions. The NO calculations were not cali- 
brated in any way to the experimental results and provided the best 
indicator for nonestly evaluating the model's ability to predict slow 
chemistry. NO predictions and trends showed good agreement with the 
experimental data. 


The Two-Step Approach shows great promise for calculating slow and com- 
plex chemistry in turbulent reactive flows. Limitations in our applica- 
tion were due primarily to deficiencies in the MDM solution and to ex- 
ternally-imposed economies on KIVA computer time. 


IinNestawoUpervisor: Prof. John B. Heywood 
ic Le- Director, Sloan Automotive Laboratory 
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CHAPTER ONE 


INTRODUCTION 


1.1 Overview 

Effective emissions control requires the simultaneous reduction of 
more than one pollutant. A trade-off exists in diesel engines between 
the reduction of soot and the reduction of Nitrogen Oxides (NO,-mostly 
Nitric Oxide with some Nitrogen Dioxide). NO, is a product of hot lean 
combustion and soot 1S a product of cooler rich combustion. Reducing 
one normally results in increasing the other, but their mechanisms are 
complex and influenced by many variables. Ultimately they depend on 
local composition and temperature which are controlled by engine varia-~ 
bles such as compression ratio, intake air temperature and pressure, 
exhaust gas Mee eivation (EGR), cylinder geometry, engine speed, load, 
Swirl, injection timing, fuel jet characteristics, and type of fuel. 
These mechanisms are very difficult to study empirically. A mathemati- 
cal model of the diesel combustion process would allow its parameters to 
be varied independently to examine their effects on NO. and soot. Past 
models have not given satisfactory results or have been limited to a 
narrow range of applications. Few have even considered the problem of 
calculating slow emissions chemistry simultaneously with flow details in 
a turbulent reactive flow. Such calculations must consider turbulent 


distributions of temperature and species concentration, but this is a 
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formidable task in an already cumbersome unsteady, three-dimensional 
flow calculation. This research evaluates the feasibility of using a 
two-step modeling approach. A multi-dimensional model (MDM) solution to 
the reactive flow conservation equations is used to define zones within 
the engine cylinder, to specify the flow between these zones and to 
calculate evaporation, heat transfer and mixing intensity within the 
zones. A stochastic mixing model (SMM) uses this information to predict 


emissions. 


1.2 Background 

A description of direct-injection diesel combustion provides neces- 
sary insight into the complexity of this problem. Direct injection of 
fuel into the engine cylinder is used in medium and low speed diesel 
applications. Low speed diesels have flat or slightly concave pistons 
and Renee ly little initial air motion (quiescent). Medium speed 
diesels, which will be considered here, have deeper bowls inset into the 
piston. They depend on generating significant air flow and turbulence 
to achieve rapid and complete combustion. 

Bpreimesi=a |) snows the basic events in a four-stroke diesel combus- 
tion process. Figure 1-2 illustrates a medium speed diesel cylinder and 
fuel spray geometry. During intake, air is drawn througn the intake 
valve by the descending piston. Bulk motion of the intake charge is 
controlled by the shape of the intake passage. Typical of most medium 
speed diesels is a significant swirl motion as indicated in Figure ine. 
The intake valve closes shortly after bottom dead center (BDC). High 


temperature and pressure are generated as the piston compresses the air 


and residual gases. Before reaching top dead center (TDC) liquid fuel 
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is injected into the cylinder. The fuel spray is atomized upon leaving 
the injector and immediately begins evaporating. As the fuel spray 
entrains and mixes with the hot gases a spray structure develops. This 
Meecnaracterized by a rich liquid core at the center of the spray sur- 
Reunded by a progressively leaner distribution of fuel and air. Igni- 
tion occurs after a chemical ignition delay period. The combustion 
region spreads rapidly, often from multiple sites, until the fuel alrea- 
dy mixed within combustible limits is burned. Following this premixed 
burning phase combustion becomes mixing controlled and proceeds more 
slowly. A typical heat release rate curve for this process is shown in 
Figure 1-3. As the piston passes TDC, the hot, high pressure gases 
drive the piston down, delivering useful work. Near TDC injection 
stops. Turbulent mixing and combustion continues until essentially all 
the fuel is burned. Since diesel combustion is overall very lean, most 
of the fuel's chemical energy is released. NO. is produced in the hot, 
Seoranmiometric combustion regions. Soot is produced in the richer spray 
regions bordering the combustion zone. The quantity of soot reaches a 
maximum towards the end of injection, then decreases due to oxidation. 
Among the phenomena observed in the diesel combustion process are turbu- 
lent two-phase flow, moving boundaries, evaporation, turbulent mixing, 
ignition, combustion, slower emissions chemistry, convective heat trans- 
fer and radiation. 

Despite its complexity, diesel combustion is still governed by the 
general equations for turbulent reactive flows, including conservation 
of mass, species, momentum and energy. Space and time resolution of 
this flow far exceeds present computer capabilities. The task is made 


Manageable in state-of-the-art multi-dimensional models (MDM's) by con- 





Sidering only mean local properties with additional assumptions or 
equations to replace turbulent fluctuation terms. Chemical reaction 
rates are also expressed in terms of mean local properties. These gen- 
eral equations with boundary conditions and various submodels are then 
solved in time and space. 

Because the reaction rates governing the production of soot and NO, 
are much slower than those for combustion and have time scales of the 
Same order as the turbulent fluctuations, the MDM cannot accurately 
Beeaqree missions. The distribution of turbulent properties must be 
considered. In order to model more complex chemistry and consider the 
distribution of turbulent properties, compromises must be made in deal- 
ing with flow details. Otherwise, the solution becomes computationally 
Unmanagecable. Stochastic mixing models have gained broad acceptance for 
modeling turbulent mixing and combustion in various types of chemical 
reactors. The fundamental concept of these models is coalescence/dis- 
persion micromixing. [1] Details of this method are provided in Appen- 
Gix C. In its simplest form, initially-segregated equal-mass elements 
(reactants) are fed into a reactor. Randomly selected pairs of elements 
within the reactor are instantaneously mixed on a molecular level (coa- 
lesced) according to a prescribed mixing rate and then separated again 
into two elements of equal average intensive properties (dispersed). 
Finite rate bateh chemistry proceeds in each element during the time 
interval between mixings. Elements within the reactor acquire a dis- 
eripm@tion Of properties which control the overall reaction rates. There 
is no spatial resolution within the reactor. Each element is equally 
iikely eGo be picked for mixing or, in cases with a discharge, for remov- 


al from the reactor. This method has been applied to a divided chamber 
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diesel [2] in a previous study at MIT. In this type of engine the fuel 
is injected into a highly-mixed prechamber for combustion and expansion 
mace the engine cylinder. Unfortunately, direct injection diesel com- 
bustion cannot be described as well-mixed. The spatial distribution of 
the fuel spray and the cylinder geometry play important roles in this 
process. Ikegami and Shioji [53] use a stochastic single-zone method to 
Calculate chemistry in a direct injection diesel, but their analysis 
assumes an initial distribution function for the fuel spray and requires 


a number of empirical parameters. 


lege ine Two-Step Approach 

The purpose of a two-step approach to this problem is to provide a 
fundamentally-based method by which stochastic mixing model techniques 
may be applied to an inhomogeneous reactive flow such as a direct-injec- 
On ize engine in which flow details are likely to be critical to 
Eme Calculation. The first step in this approach is to complete a MDM 
solution of the engine reactive flow. The output of this solution is 
used to define zones within the engine cylinder according to total fuel 
mass fraction (burned plus unburned fuel). Four such zones are labeled 
in Pigurte i-2. These zones are not fixed in space, but are dependent on 
Paeweenseaniey Changing distribution of total fuel within the cylinder. 
Total mass, species mass, volume, chemical heat release, mass of fuel 
burned, mass of fuel evaporated, wall heat transfer and turbulent inten- 
sity are calculated for each zone at each timestep. Using conservation 
of mass and species, the net flow of total mass, liquid fuel, unburned 
fuel vapor, and burned fuel between each zone is calculated. 


The second step is to model each of these zones as a stochastic 
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mixing zone in a Stochastic Mixing Model (SMM). The flow and process 
information calculated by the MDM are used ec specify flows between 
mixing zones and constrain evaporation, heat transfer, and mixing within 
the zones. Information is transferred only from the MDM to the SMM. 
Using this information the flow mixing and chemistry: is recalculated by 
the SMM, resulting in species and temperature distributions for each 
zone as a function of time. In this way the distribution of turbulent 
properties is considered in the calculation of slow chemistry. Figure 
1-4 illustrates the flow of information between the MDM and the SMM. 


Tables 2-1 and e-2 define the variables used. 


1.4 Goals and Objectives 

The goal of this thesis is to demonstrate the feasibility of this 
two-step approach for calculating slow and complex chemistry in turbu- 
lent reactive flows. The specific objectives are: 


1. To develop a Stochastic Mixing Model computer code 
based on this two-step approach for calculating emissions in 
a direct-injection diesel engine. 

2. To evaluate the SMM for consistency by analyzing zone 
distributions, the effect of changing zone boundaries, the 
effect of increasing the number of zones, the sensitivity to 
various physical and model parameters and the variance of 
final results over multiple stochastic runs. 

3. To evaluate the SMM by comparison to MDM results 
which are recalculated, but unconstrained in the SMM such as: 
pressure, zone burned fuel, zone fuel mass fraction and spe- 
CVeSeT LOW. 

4. To evaluate the SMM by comparing predicted NO histo- 
ries to experimental results with primary emphasis given to 


trends as engine conditions are changed. 
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The submodels included in our Stochastic Mixing Model are not intended 
to be unique. Each was developed with great care to be consistent with 
the random selection principles fundamental to the method and the pnysi- 
cal processes being modeled, but equally valid arguments could be made 
for other schemes. Our intent is to illustrate and evaluate one example 


of how this approach might be applied. 
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CHAPTER TWO 


THE MULTI-DIMENSIONAL MODEL 


2.1 Selecting a Multi-dimensional Model 

Pngine combustion modeling has received much attention in recent 
years. Modeis have deen ceveloped, reviewed, classified and discussed 
at all levels of the academic and professional communities. Heywood [4] 
pmevides the most widely accepted classification scheme for these mo- 
@ees. these classifications tmebude zero-dimensional, quasi-dimensional 
and multi-dimensional models. Zero-dimensional models do not consider 
spatial Eons within tne cylinder and are essentially a thermody- 
Nemic analysis. Heat transfer is modeled.as bulk heat loss and the mass 
Durning rate is specified by an empirical function. . Quasi-dimensional 
models go a step furtner and attempt to predict the Durning and mixing 
rates from more fundamental ponysical variables that describe the spatial 
Structure in a Darametric manner. Typically, phenomenalogicai models 
ame used for she fuel soray behavior, ignition and mixing.{$S] For our 
application, spacial details of the flow are required to define zones 
and specify the flow between zones. Therefore, zero or quasi-dimensional 
medels are not adequate. The necessary spatial details are provided 
only by multi-dimensional models. 

Multi-~dimensional models solve the fundamental mass, species, mo-~ 


mentum and energy conservation equations in time and space. This re- 
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quires mathematical descriptions or submodels for the fuel spray, igni- 
tion, combustion chemistry, heat transfer, and moving boundary surfaces. 
[Tt requires a sophisticated numerical solution algorithm and a method 
for dealing with turbulent flow and combustion. This is a formidable 
task and computational fluid dynamics (CFD) with combustion is really 
only in its infancy. Our problem was to select a multi-dimensional 
model from existing computer codes, modify it to provide the particular 
data required for input to the Stochastic Mixing Model(SMM), and to run 
the code without major changes to its existing submodels. Codes with 
this level of sophistication cannot be used as a "black box". Running 
the code was challenging and educational. Among existing multi-dimen- 
Sional models for internal combustion engine simulation, three stand out 
as being reasonably well-documented and as having solution algorithms 
and submodels which are "state-of-the-art" in oe approach. These 
are: 


1. PICALO (Piston-in-Cylinder Calculator) developed by 
CHAM of North America/Cummins Engine Co. 

2. RPM (Reciprocating Piston Motion) developed at Imper- 
ial College, London by A.D. Gosman et al. 

3. KIVA developed at Los Alamos National Laboratory by 


A.A.Amsden et al. 


PICALO [6], working in conjunction with PHOENICS, a general-purpose 
flow analysis computer code, treats the two-phase flow as interpenetra- 
ting media using a continuum approach with coupling terms for mass, 
momentum and energy exchange between media. The conservative finite- 
difference numerical algorithm is fully implicit and iterative. A k-e 
model is used to model turbulence. Boundaries are treated as 


adiabatic and "no-slip". Instantaneous mixing-controlled chemical reac- 
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Prem is assumed. 

The development and application of RPM has been well-documented for 
over a decade.(7,8,9,10,11,12] Most of the documented RPM versions use 
a curvilinear-orthogonal grid able to expand and contract in the axial 
direction. The conservative finite-difference numerical scheme is 
fully implicit and iterative. The most recent version uses a predictor/ 
corrector algorithm in place of the iterative technique. All versions 
use a combination of upwind and central differencing for the discrete 
convection and diffusion terms. A k-e model is used to model turbu- 
mace. boundaries are treated using a "law-of-the-wall" technique. 

Most of RPM's published applications have been for cold flow, but in the 
cases where combustion was included [8,9] a combination of an Arrhenius 
rate equation for the chemically controlled phase and an eddy mixing- 
model for the mixing controlled phase were used. A stochastic discrete- 
peti cie model is used to model the liquid spray. Although the RPM 
model was not selected for our use, the results presented in references 
C8] and £9] provide some interesting comparisons. 

KIVA was selected for our application. A description of KIVA will 
be presented in the next section. The primary reasons for selecting 
KIVA were availability, excellent documentation, its ability to calcu- 
have multi-component chemistry, its extensive use of vector calculations 


and its computational efficiency at low Mach number. 


2.2 Description of KIVA 
KIVA is a finite-difference computer code for solving reactive 
fluid-flow problems in two or three dimensions. It is specifically 


designed to model the in-cylinder fluid dynamics of internal combustion 
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engines including gas flow, liquid fuel injection, spray dynamics, evap- 
Sieaeron, heat transfer, combustion, species transport, and mixing. KIVA 
uses an arbitrary-Lagrangian-Eulerian (ALE) mesh which facilitates cal- 
culations with curved and changing boundaries. The species and chemical 
reactions that can be represented in KIVA are not minted. The documen- 
tation for KIVA [13,14] is excellent and contains an extensive list of 


references and more detail than will be presented here. 


2.2.1 KIVA Nomenclature 


A Sealing constant of order .05 

ae On stoichiometric coefficients for species 
min reaction r; a for reactants, b for 
products 

2p? Om order of reaction for species m in 


reaction r 


D species diffusivity (same all species) 
3 3 3 
V vector operator V =i om dy +k re 


Kronecker delta 


ij 
ifs deepedt scr bULl ens unecri on 
on rate of change in f due to drop collisions 
eS drop acceleration 
a momentum transfered from spray droplets 
ho specific enthalpy of species m (datum at 


absolute zero) 





Pr 


“Ve 


=J1e 


Specific internal energy (datum at absolute 
zero) 


heat flux vector 


forward and backward rate coefficients 
POmm@edeC lens 


thermal conductivity 
EQuitibrium comstant for reaction s 
aaa Vi scOsucy 


turbulent viscosity 


background kinematic viscosity 
pressure 


Prandtl number 


subgrid-scale specific turbulent kinetic-energy 


(em*/sec*) 

rate of chemical heat release 
spray energy source rate 

heat of reaction r 


turbulent disipation source rate 


rate of change in drop radius 
COtal mass density (2/cec) 
fuel(ex: diesel) density 


species m mass density (g/cc) 





Soe 


aK change in a due to chemical reaction 

Pg change in fuel density (p,) due to evaporation 
Se Schmidt number 

9 viscous stress tensor 

c time (s) 

dq, absolute temperature (K) 

We, rate of change in drop temperature 

u fluid velocity (cm/s) u = ui + vj + wk 

u' rate of change in drop gas turbulence velocity 
a, Kinetic progress rate for reactionr 

oT molecular weight of species m 

ee mole or species -m 


2.2.c The Basic Equations 


The conservation equations for mass, species, momentum and energy 


as expressed in KIVA are: 





dp 

at - Ve(pu) 3s Po C21) 
20, °C a 

ae wep u) = VeCoDV(p_/o)] Ppa Oe 4 (22) 
3 

yp eu) - V+(puu) = ~Vp + Veg + Bs (2.3) 
0 e e oe 

pages UC plu) = ~pVeu + g:Vu- VJ +Q, + Q, + Q, (2.4) 


Q> 


t 
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where: 


see = oD p Dee oma) (2.5) 


State relations are for an ideal gas mixture. Chemical reactions are 


represented by: 


B a bark (220) 
m m 


The chemical source term in the species continuity equation is then 


given by: 


AS (bee a + Wt (beesna a (2.7) 


Q, =f qu + Lqwa (2.6) 


Fast reactions are assumed to be in equilibrium. Slower reactions are 


advanced Kinetically. Kinetic reaction rates are computed using: 


a! b! 
e mic mr 
o> Kon Ip /W) Kor 1p /W,) (2.9) 
m mM 
where: 

! A mea (-E° /T) (2.10) 
Ker * Ber a, Oe oe 

! A mon Cnr) as 
Spee br ae br ; 


Pomulibriume reaction rates are implicitly determined from the equilibri- 


um constraints: 


baw a 
: ms ms _ 3 12 
Ip /W_) K oT) Ce i2) 


m 






ai 


where: 
K> PO + BYT +6 £0) T + & TS). 
C S A s A S s A SA 
Ty = 1/1000 


Complete space and time resolution of a turbulent flow far exceeds 
present computer capabilities. KIVA assumes a Reynold's decomposition 
with mass or Favre averaging and applies the same conservation equations 
(2.1 thru 2.5) in terms of local mean properties to the turbulent flow. 
Reynold's decomposition expresses dependent variables as the sum of mean 
and fluctuating components. For an unsteady cyclic process this mean 
represents an ensemble mean or average over many cycles at a particular 
time in the cycle. Ensemble averaging of the decomposed conservation 
equations results in similar equations using local mean properties, but 
with additional terms containing products of the fluctuating components. 
There are more unknowns than equations. This is the turbulent closure 
problem. The most common closure scheme is to model these additional 
terms as a turbulent gradient flux and to replace the molecular trans- 
meme coctficients with turbulent ones. The turbulent coefficients are 
then calculated using additional algebraic or partial differential equa- 
tions to describe the turbulence. KIVA follows this scheme and calcu- 
lates turbulent viscosity using a subgrid-scale turbulence model (SGS) 
with a single partial differential equation for subgrid turbulent kKine- 


Bic energy: 


a 
u, = Aplq us OV * Usain * ME 


Cree 


K = ue,/Pr D=y/ (pSc) 









haa 


3 2 
-1 3/2 - 
at (oq) + V-(pqu) = - 3 pqV eu E q? + Wo C2) 


nQ 


7>Vu + Ve(ul¥q) - DoL 


KIVA also replaces temperature and concentrations in the chemical equa- 
tions with local mean values assuming that the chemical reactions are 
fast enough not to be effected by turbulent fluctuations. This is not 
valid for the slower emissions chemistry. The rational for including 
the effects of turbulent fluctuations on slower chemistry is developed 
in Appendix C. 

The fuel spray is modeled using a Monfe Carlo discrete-particle 
technique. Discrete computational particles represent groups of drop- 
moos sOlesimilar physical properties. A drop distribution function, f, 
is used to specify these properties including location, velocity, radii, 
temperature and gas turbulence velocity. The gas turbulence velocity is 
added to the local mean gas velocity when calculating drag and vaporiza- 
Mrolerase. Drops may collide resulting in either coalescence or an 
exchange of momentum. The time evolution of f is given by the spray 


equation: 


of 3 3 


Pee VCE) + (FR) + BRET) ina UP a Cas) 


ot coll 


The droplet acceleration, F, is calculated from gas flow velocities 
using a drag coefficient. The rate of droplet radius change is calcula- 
ted using the Frossling correlation. Heat conduction to the droplet is 
given by the Ranz-Marshall correlation. This set of coupled equations 
is solved to generate a time-dependent, spacially-resolved description 


of the particle motion. Exchange functions for mass, momentum and ener- 
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gy are calculated from this description of the spray and included as 


source terms in the gas flow conservation equations. 


2.2.3 Numerical Solution 

The basic equations are reformulated in integral form so that 
schemes explicitly conserving mass, species, momentum and energy may be 
implemented. The temporal difference scheme is explicit using an acous-~ 
tic subcycling method at low Mach numbers. Spacial differencing is on 
an arbitrary Lagrangian /Eulerian grid (ALE). Spatial difference ap- 
proximations use a control volume approach to conserve local properties. 

Quantities are advanced one cycle, from time a to time can gl 
three phases. Phase A considers terms in the basic equations other than 
pressure and convection. Phase B is a Lagrangian sub-cycling calcula- 
tion considering acoustic terms (pressure,work,spray particle drag) in 
which the vertices of the volume elements are assumed to move with the 
local fluid velocity. Phase C is the rezone phhase, in which convective 
transporce associated with moving the vertices from their Phase B loca- 
tions to their final locations is calculated. Timesteps are adjusted 
each cycle based on minimum stability requirements. 


The general structure of the code is shown in Figure 2-1. The code 


Masewrivven specifically for the CRI Cray-1! computer. 


eee tiodrrrcacvions Co KIVA 
Six types of modifications were made to the documented version of 
PIVvAlis) for our application: 


1. Modifications for compatibility with the VAX/CRAY 


System at the Navy Research Lab, Washington, where most of 








che KIVA runs were made. 

2. Modifications for calculating data for input to the 
Stochastic Mixing Model(SMM). 

Seweedirications for using the MIT "standard" diesel 
uel . 

4. Modifications to increase diffusivity and the rate of 
combustion on the expansion stroke. 

pee ier minor modifications adapting the code to this 
application. 

6. Los Alamos National Lab(LANL) KIVA update 092085/ 
mao5, [15] 


mr Update decks for these changes are listed in Appendix E. 

Supueme. ie MPMOUT calculates zone properties for output to the SMM. 
KIVA computational cells are sorted by total fuel mass fraction (TFMF) 
into ten zones. Properties for eacn of these zones are calculated and 
written to an output file for subsequent post-processing and input to 
eme SMM. These properties are iisted in Table 2-1 and their relation- 
re tO the SMM illustrated in Figure 1-4. 

The documented version of KIVA includes data for octane combustion. 
mececl’ ying a different fuel in the input data requires changes to data 
Statements in Subroutine RINPUT. This data includes fuel enthalpy, 
Betemt neat, and vapor pressure. The fuel used in our calculations is a 
multicomponent "standard" diesel fuel, C19.3%13 7° Coefficients used 
for calculating fuel enthalpy are from Reference [16]. Latent heat and 
vapor pressure values used are for dodecane [17]. 

Tne requirement to increase diffusivity on the expansion stroke 
mel be discussed in Section 2.5. This was accomplished by gradually 
Pmencasim@e Variables *ATKE, RPR and RSC after cop dead center. 


Ge aeaeaiyeetne law-of-the-wall heat transfer model predicted only 
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7-8 per cent of the total heat release as heat loss to the wall. This 
was Substantially lower than the 12-15 per cent expected. In order to 
compensate for this discrepancy the constant Cu in the following heat 


Flux equation was increased from 1.125 to 2.0: 


ay = eT C/U )e (1 a ) C2 io) 


A similar change was reported in constant volume bomb simulations using 
KIVA at Purdue University [18]. 

Ignition crank angle is specified as an input to the calculation. 
The code was modified to delay all chemistry until ignition at which 
point chemical reaction proceeded spontaneously. Spark ignition was not 
required. 

A spray model update developed at LANL, but not included in the 
P@eimented update, was used. In this update the spray turbulent kinetic 
energy fe calculated independent of the flow turbulent kinetic energy 
and the particle diffusion algorithm is modified for spray turbulent 
correlation times smaller than the computational time step. These 


changes were required to achieve reasonable spray penetration without 


artificially changing the values of the input spray parameters. 


2.4 Selecting Model Parameters and Running KIVA 


Complete KIVA input for the five test cases is listed in Appendix 


~ 


A. The following parameters required particular consideration for this 


application: 
NX Number of radial cells. 22 for all runs. 
NY Number of azimuthal cells. Set to 1 for this axisymmetric 


Calculation. Although KIVA is capable of 3-D calculations, an 


axisymmetric geometry was chosen to conserve computer time. 






NZ 


LWALL 


NCHOP 


STROKE, 
SQUISH, 
RPM, 
CONROD, 
SWIRL, 
CA1INJ, 
CA2INJ, 
TSPMAS 


CONE, 
DCONE 


98 


Number of axial cells. 18 for all runs. Grid points 
along the piston bowl were laid out on graph paper. Eleven 
planes were chosen for the squish region at the start of the 
run (-90° ATDC). Approximately 400 total cells were desired. 
Actual indices for the piston bowl are input variables KPO, 
RPO and ZPO. Figure 2-2 shows the resulting grid layout at 
aJOCeat0G and TDC. 


+] selects law-of-the-wall boundary conditions which were used 


for all calculations. 


KIVA uses a CHOP routine to reduce the number of planes in 
the squish region as the piston approaches TDC. A minimum 
thickness of 3 cells in the squish region was chosen for all 


calculations. NCHOP=3. See Figure 2-2. 


Values for engine parameters were taken directly from 


_the engine test data. [19] 


A hollow cone spray pattern must be used with an axisym- 
metric geometry to simulate the actual 8-hole spray pattern 
With moderate swirl and 8 holes this is a reasonable approx- 
imation. The injection angle used was from the engine test 
data. A spray included angle of 15 degrees was used for all 


runs. 





ere T 
BHOI-12 


AQ,BO 


UVFREE 


ADIA, 
TWALL 


CA1IGN 


Ocel , 
DIKE , 
BEKE 


RPA RSC 
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Initial charge temperature and composition were specified 
at -90° ATDC using the data supplied in the test results and 
the NASA equilibrium code to calculate burned composition. 

The initial charge includes air, water vapor, residual frac- 


EiLonowand EGR. 


These parameters were set to 0 and 1 respectively. This 
results in a weighted average between centered and upwind dif- 
ferencing for evaluating cell-faced quantities. The weighting 
factor is calculated each timestep for marginal stability. 
This is KIVA's least numerically diffusive differencing 


scheme. 


set to 1.0 for all runs. Allows the velocities along 
flat vertical and horizontal walls to "float". Momentum loss 
for vertices one cell away from the wall is calculated using 
the law-of-the-wall. Velocities along walls where UVFREE=1.0 


are then calculated as if the wall were not there. No-slip 


boundaries were found to be over-restrictive on the flow. 


This remains a problem on curved surfaces. 


A constant wall temperature (ADIA=0.,TWALL=400.) was used 


Gorewall runs. 


Crank angle at ignition was specified as input. Its 
Value was determined from the experimental pressure trace 


Chemistry is not allowed to occur until ignition. 


Various values for the turbulent parameters were tried 
in the preliminary runs. Those specified in the KIVA docu- 


mentation were found to work well. 


Prandtl and Schmidt numbers of approximately 0.9 were 
Ueecamuoreall calculations. This differs from the value of 


1/3 used in the documented KIVA test case. 
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SMR Reference [20] provides an excellent overview of model- 
ing and measuring engine fuel sprays. A review of the engine 
Spray literature indicates a broad range of predicted and 
measured Sauter Mean Radius. 9.5 um represents a typical 


initial SMR for cial MPa. This value was used for all 


KIVA runs. 

VELINJ An initial injector velocity of 166 m/s was calculated 
for Oey id MPa and Cy 70.76. This value was used for all 
KIVA runs. 

MW1, Input chemical reaction properties were modified for 

al burning diesel fuel vice octane. 

CF1,AM1, 

BM 1 


Run times for an axisymmetric simulation from -90° to 80° ATDC were 
approximately 18 minutes on a CRAY X-MP/12 computer. Contour plots of 
the KIVA results were obtained by post-processing KIVA output data using 


Program KIVAPP. 


e-5> SLVA Results 

In addition to the KIVA output to be processed and used by the SMM, 
contour and global property plots ee er ae in order to examine the 
multi-dimensional results more directly. This section will discuss the 
plots for Run 17 which is the basic retarded injection test case with an 
injection crank angle of -15°, swirl ratio of 2.46 and zero EGR. 
Figures 2-3 thru 2-7 are global plots of pressure, mass, and heat re- 
lease rate versus crank angle. Figures 2-8 thru 2-20 are plots of velo- 
city, spray particle distribution, total fuel mass fraction (TFMF), 


oxygen mass fraction, and temperature. 
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2.5.1 Pressure, Mass and Heat Release Rate 

Figure 2-3 compares the KIVA pressure trace with the test, results 
for Test Case 17 [19]. The rapid rise in the KIVA trace has two proba- 
Dle causes. The global chemistry scheme used by KIVA does not include 
any precursive chemistry. Once ignition is allowed to occur the pre- 
mixed portion of the fuel vapor is burned very rapidly, dependent only 
on temperature and equivalence ratio. Furthermore, the coarse grid 
spacing is larger than the actual flame thickness so that the burned 
mass is discretized to elements larger than the actual burned amount. 
This results in excessive flame speeds and faster burning. 

The experimental data used in our analysis was obtained from exper- 
iments conducted at the University of Wisconsin-Madison (Chapter 4). 
Using a dump and quench technique, average cylinder NO versus crank 
angle was measured in a direct-injection diesel engine. [19] This data 
is difficult to obtain and so far as we Know it is the only time-re- 
solved, cylinder-averaged NO data available for DI diesels. The NO data 
from these experiments is internally very consistent and the procedures 
thorough and well-documented. Unfortunately, the experimental pressure 
traces have some questionable features. This can be seen in the Test 
eee 17 results, Figure 2-3. Prior to ignition, which occurs at -7.38° 
ATDC, the experimental trace shows a slight loss in pressure below the 
Merorim@le trace. Once ignition occurs, the pressure increase seems Co 
"Fizzle out" instead of following a more conventional shape. These 
discrepancies occur to a varying degree in four of the five test cases, 
but in Test Case 19 these problems are not apparent. See Figure o-4, 
Case 19 is also the only test case in which the peak experimental pres- 


sure exceeds that predicted by KIVA. This variable pressure loss may 






result from leakage around the dumping diaphragm (see Section 4.1) which 
was replaced after each dumping event, accounting for different leakage 
meom run cO run. Another uncertainty in these traces is the problem of 
unburned fuel. The KIVA Simulation did not achieve complete combustion 
in any of the test cases. Although hydrocarbons were not measured in 
the experiment it was observed that combustion was poor and a great deal 
of smoke waS generated. The extent to which «<IVA is accurately predict- 
ing tnis problem 1s not known. This unknown prevented accurate heat 
release analysis of the experimental pressure trace to determine if 
leakage was occuring. 

Despite these discrepancies, the KIVA results provide a reasonable 
approximation to the experimental data and are consistent when compared 
Meweacy other. This is an important characteristic when evaluating 
meends in che SMM results. figure 2-5 compares the KIVA pressure traces 
for the 5 test cases. (Table 4-2) Maximum pressure for the early injec 
tion case, Test 19, is 10 to 15 atmospheres nigher than the other runs 
and occurs earlier. Maximum pressure for the two retarded injection 
cases with EGR, Tests 20 and 21, is 2-3 atmospheres lower than the cases 
Without EGR, Tests 17 and 18. Test 20 has the lowest peak pressure. 
These comparisons are the same for the KIVA results and the experimental 
Besults. 

maem@eaterelease rate, Figure 2-6, has a typical profile for diesel 
combustion with a reasonably long ignition delay. The large premixed 
burning spike is followed by diffusion or mixing controlled ourning. 

The noise in this trace is attributed to the relatively coarse grid 
where the burning of a single grid cell has a significant effect on the 


overall heat release. 
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Figure 2-7 shows mass of fuel injected, mass of fuel evaporated, 
and mass of fuel burned versus crank angle. Once ignition occurs, the 
mass evaporated trace shoots up much more quickly, closely following the 
mass of fuel injected. The problem with incomplete combustion is evi- 
dent in the fuel mass burned plot. At approximately 20° ATDC there is a 
distinct elbow in the mass burned curve and by 80° only 85 per cent of 
the fuel has burned. This is attributed to a lack of large scale con- 
wective flow in the lower portion of the bowl and possibly to insuffi- 


client penetration of the fuel jet. 


2.5.2 Mean Local Properties 

Before analyzing the sequence of local property plots, a brief 
discussion of initial conditions is necessary. A fundamental assumption 
emeaxisymmetric calculations is that the 3-D flow structure during 
ecuot ion is short-lived. Gosman reports [11], "for axisymmetric cham- 
bers in the absence of complicating features such as port arrangements 
which produce pre~swirl, that: (i) The induction-generated mean flow 
Baittern decays very rapidly during and after intake valve closure and 
the flow during compression is predominantly driven by piston motion. 
ji) The induction generated turbulence also decays rapidly." However, 
in his experiments with a shrouded inlet valve a single strong tumbling 
vortex was found to persist long enough into compression to be sustained 
and enhanced by the compression. Our KIVA runs assume only solid body 
SoeieGowirieratios of 2.46 and 4.0) for the initial flow at -90° ATDC, 
30 degrees after IVC. Considering the use of a shrouded valve to gener- 
ate swirl in the test engine and in light of Gosman's results, our as~ 


sumed initial conditions may not be accurate, but they are necessary to 
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achieve the computational savings of an axisymmetric solution. 

Figure 2-8 shows the location of fuel Spray particles at three 
crank angles during injection. The fuel is injected from a point at the 
upper left hand corner of the axisymmetric plot. The left hand side of 
the plot is the centerline. The bottom curved surface is the piston 
bowl and the bottom flat surface is the top of the piston in the squish 
region. The right hand vertical surface is the cylinder wall and the 
flat top surface is the cylinder head. Injection starts at -15° ATDC 
and continues until +5°. By -5° reasonable penetration has been 
achieved, but combustion has started and evaporation is very rapid. By 
TDC evaporation has greatly reduced the penetration and only a few part- 
meues remain although injection is still going on. 

Figures 2-9 thru 2-11 are plots of the swirl velocity. Note that 
eance the swirl is in the negative direction the "L" in the plots repre- 
sents the largest swirl velocities and the "H" represents the smallest. 
ieee swirl profile at -90° ATDC is strictly solid body with boundary lay- 
ieee Sy -15.95°, just prior to the start of injection, the drag in the 
squish region is evident, but the profile is still basically solid body. 
There is a strongly swirling region at the radius just inside the squish 
region. This is due to the conservation of angular momentum of the 
squish flow. By -9.99° the momentum exchange between the flow and the 
fuel spray is evident. Its effect is to slow the swirl velocity down, 
conserving momentum. This iS particularly true along the cylinder head 
where the spray's ability to entrain the swirling gas is limited. Con- 
servation of angular momentum causes the swirl to increase as the piston 
passes TDC with the maximum swirl velocity increasing from 12.8 m/s at - 


90° to 14.7 m/s at +5° and then decaying to 9.4 m/s by +80° ATDC. 








~36~ 


Figures 2-i2 thru 2-14 are plots of velocities in the axisymmetric 
plane. At -90° ATDC these velocities are zero at the cylinder nead and 
equal to the piston speed at the piston with a nearly linear profile 
from piston to head. By -80° flow out of the squish region nas already 
Searceed to alter the initial flow condition. By -169% the squish flow 
nas developed into a well-defined clockwise vortex in the piston bowl, 
Bae does not penetrate into the boundary layer cells. 

Injection starts at -15° ATDC. Injection is at a 24 degree angle 
With respect to the cylinder head. The velocities induced by the injec- 
tion are an order of magnitude larger than the existing flow velocities. 
meee tne plots are scaled to the highest velocities, plots from -10° to 
+10° ATDC are dominated by the spray and velocities away from the spray 
appear to be zero. The spray is able to entrain gas from below, but 
M@eaole CO entrain gas along the cylinder nead. This results in a clock- 
wise Migoulation into the base of the spray and out along the nead as 
mennerieire 2-13. Combustion starts at -7.2° ATDC. By +5° combus- 
been is also naving an effect on the flow. Velocities away from the 
combustion zone are augmented by the expansion of hot gases. By 10° the 
mew oack into the squish region is well-defined. The excess from the 
flow along the cylinder head is bent down into the bowl generating ano- 
ther clockwise vortex. This vortex flow meets the combustion and spray 
generated flow in the middle of the bowl, creating a stagnation point. 
This stagnation point is also evident in the Total Fuel Mass fraction 
(TFMF), oxygen and temperature plots. The flow is again dominated by 
the piston motion as the piston continues to move down. 

Figures 2-15 thru 2-20 are contour plots of total fuel mass frac-~ 


tion (TFMF), oxygen mass fraction and temperature. They are dest dis- 








cussed together at each crank angle. At -9.99° ignition nas not oc- 
curred and evaporation is slow. Fuel vapor is confined to a small re- 
gion around the center of the spray. The evaporative cooling effect is 
very evident in thee same region on the temperature plot. By -5° ATDC 
combustion nas started. Note that the temperature plot indicates a 
maximum cell temperature of 3498 K. This is extremely high, well above 
the adiabatic flame temperature of 2940 K. The relatively large time- 
step, when applied to the stiff set of chemical-reaction equations, 
causes pressure and temperature overshoots in large rapidly-burning 
cells. The major impact of these temperature overshoots is to drive the 
NO. production rate calculated by KIVA way up. At TDC combustion is 
well underway. The premixed region extends out to the Low TFMF contour. 
fmemecrature profiles inside this region are very irregular with no dis- 
genet flame front. The oxygen inside this region is nearly depleted and 
the premixed ourning phase is almost over. By 10° ATDC the temperature 
contours show a distinct diffusion flame front just behind the Low TEMF 
contour moving towards the curved portion of the bowl. During expansion 
the steep gradients are smoothed out by turbulent and numerical diffu- 
Sion resulting in a large diffusive front. The expanding grid results 
Mmiminerecasing and excessive numerical diffusion which quickly damps out 
memerarge scale convection. This limits the mixing between the large 
“untoucned air mass along the bottom of the bowl and the fuel-rich com- 
Bistlone region. The development of this large diffusive front coincides 
with the abrupt change in the burning rate seen in the burned fuel mass 
plot. The oxygen plots also show a very large region of unmixed air 
along the curved portion of the bowl. The mixing of fuel and air during 


the expansion process is severely limitied. Since the numerical diffus- 





ivity could not be reduced without a substantial decrease in eras pac— 
ing and a corresponding increase in run time it was decided to increase 
the diffusivity even further. In order to compensate for the loss of 
large scale convection and reduce the unburned fuel at the end of the 
eyele, diffusivity was artificially increased after TDC. 

In summary, these plots provide a self-consistent picture of the 
mixing and combustion process although this picture differs somewhat 
from our understanding of what really happens in a DI diesel. We would 
expect greater penetration of the fuel spray, significant convective and 
large-scale turbulent flow lasting well into the expansion process and 
more complete mixing of fuel and air with most of the fuel being burned 
by +80° ATDC. Deficiencies can be explained by the simplicity of the 
initial conditions, the coarse computational grid, and the universal 
problem of modeling turbulence and turbulent boundary flows. These 
deficiencies become most significant during the expansion process. For 
now, KIVA provides the best multi-dimensional picture of diesel combus- 
tion available. It is not our purpose to validate or improve KIVA, but 
to evaluate a two-step approach for predicting emissions. Results are 
at least reasonable and internally consistent, particularly near TDC 
Where most of the critical NO chemistry takes place. KIVA should pro- 


vide an adequate input for evaluating the SMM approach. 


2.6 Processing KIVA Output 

Program PRCMDM, listed in Appendix F.1, processes the KIVA output 
for input to the SMM. Its relationship to KIVA and the SMM are illus- 
Peecedmim= Figure 1-4. Table 2-1 defines the input variables to PRCMDM. 


In order to keep the. quantity of data generated by AIVA within reasona-~ 
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ble limits the KIVA output is presorted into ten zones. This limits the 
number of mixing zones in the SMM to ten, but allows any combination of 
these ten zones to be used. Table 2-2 lists the ten zones and the vari- 
ous combinations used in our analysis. Table 2-3 defines the output 
variables from PRCMDM to the SMM. PRCMDM has four functions: 


Ieeinputs data from KIVA. 

2. Combines the ten zone KIVA data to achieve the de- 
Sired zone description. 

3. Calculates the total mass flow, fuel vapor flow and 
burned fuel flow between zones using conservation of mass/ 
species. 


4, Outputs data for input to the SMM. 


Ten zone KIVA output data for Test Case 17 is shown in Figures 2-21 thru 
2-46. The zone mass plots, Figures 2-21 and 2-22 illustrate the growth 
mumavsappearance of zones. At the start of injection, -15° ATDC, only 
the air rene: zone 10, exists. As fuel is evaporated cells become rich- 
er and they are rezoned into progressively ricner zones. In this way 
meener zones grow out of leaner ones. The coarse grid nas again caused 
Significant noise in this data. Initially we were concerned about the 
effect of this noise on the SMM results. To determine the extent of 
this effect, one set of data was smoothed before input to the SMM. The 
difference between the results using the raw data and the results using 
the smoothed data was negligible and all subsequent runs were made using 
raw data. 

The data was also checked for consistency. The total zone mass 
Dlus the total zone liquid mass equaled the original charge mass plus 
Piewmass Of fuel injected. The total zone liquid mass plus the total 


zone fuel vapor mass plus the total zone burned fuel mass equaled the 
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mass of fuel injected. Mean zone temperature was highest in the stoich- 
lometric zone. Zone mixing intensity is maximum around TDC and in zones 
where the fuel Spray is most prominent. Mixing intensity decays during 
expansion. Zone mean TFMF is progressively higher in richer zones and 
within zone limits. Total zone volume is equal to ne cylinder volume. 
NO. mass fraction 1s highest in zones with the highest mean tempera- 
tures. Cumulative mass of fuel evaporated is equal to total zone fuel 
vapor mass plus total zone burned fuel mass less the original burned 
fuel mass. Total heat release agrees with total fuel burned and total 


wall heat transfer is about 15 percent of the total heat release. 
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CHAPTER 3 


THE STOCHASTIC MIXING MODEL 


3.1 Assumptions 

The basic assumption underlying our two-step approach is that an 
inhomogeneous reactive flow, such as in a D.I. diesel engine, can be 
broken down into zones which individually may be modeled as stochastic 
mixing zones. It is further assumed that these zones are simply con- 
nected in series with a single flow in or out from the preceding zone 
and a Single flow in or out to the next zone. Total fuel mass fraction 
(burned -plus unburned) is used to define the zones. These zones are not 
fixed in space, but constantly change as the total fuel mass fraction 
distribution within the cylinder changes. There is no spatial resolu- 
tion within the meee and each zone is considered to be perfectly macro- 
mixed. Figure 3-1 illustrates a typical zone arrangement. Output from 
a multi~dimensional model solution is used to define the zones, to specu 
ify the flow between zones and to constrain certain processes within the 
zones. It is also assumed that the slower emissions chemistry does not 
produce or use significant energy and is therefor only a perturbation of 
the major combustion and flow dynamics which are correctly modeled by 


the MDM. 
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3.2 Model Overview and Structure 

pamor eo Une Start of injection only the air zone exists. As liaq- 
mrastuel begins to evaporate and mix with the surrounding air other 
menes are created. The MDM specifies the flows into and out of these 
zones. These flows are updated in the SMM with data from the MDM at 
specific update times. Evaporation, heat transfer, mixing intensity and 
volume in the SMM are also specified by the MDM data. Mass in the SMM 
is broken up into equal mass units called elements. Each element con- 
sists of two primary components, unburned fuel vapor and burned gas. 
The burned gas fraction (BGFR) includes air and burned products. The 
BGFR is assumed to be in equilibrium for a given temperature, pressure 
and burned fuel fraction (FR). Zone mixing occurs by random selection 
Senwcwo Clements within a mixing zone, coalescence of Cthese two elements 
into a single element and separation back into two elements with equal 
intensive properties. When combustion criteria are met in a specific 
element all of the unburned fuel vapor (1-BGFR) is instantaneously con- 
verted to burned gas and a new equilibrium is calculated to include the 
additional burned fuel fraction. The SMM includes submodels for updat- 
ing chemical properties, evaporation, heat transfer and volume. 

Figures 3-2 and 3-3 illustrate the SMM's basic structure. Figure 
i-4 illustrates the relationship between the SMM and the MDM. There are 
Boece Orimary inbuts to the SMM: 


1. Equilibrium data. Tables with standard enthalpy, 
specific neat, molecular weight, and equilibrium products are 
stored as a function of temperature, pressure and total equi- 
valence ratio. These properties are calculated using the 
NASA equilibrium code as described in Appendix D. 


2. MDM data. The processed MDM output as described in 








Section 2.5 includes mass flow, zone fuel evaporated, zone 
volume, zone neat transfer, and zone mixing intensity. 

3. NAMELIST data. Contains the SMM simulation control 
parameters, combustion and soot parameters, and fuel cnarac- 


teristics. 


The equilibrium data and NAMELIST data are input at the start of the 
Simulation Dy Program SMM. Program SMM updates the simulation time and 
initiates the mixing events. When it is time for the next MDM update, 
Program SMM calls Subroutine SMZ. SuUbRoUtI Ne SiZelirst. completes. che 
previous MDM timestep for each zone by updating the heat transfer, up- 
dating the cnemical properties, and conserving volume. Subroutine SM4Z 
then reads the MDM data for the next MDM timestep and uses it to specify 
tne iow between zones and to update evaporation. it also calculates a 
new mixing time for each zone. The smallest of these mixing times is 
used Dy Program SMM as the basic simulation time increment. Once tnese 
updates have deen made, control returns to Program SMM and mixing con- 


cinues until the next update. 


Ses ouOmodels 

The following sections describe the various submodels included in 
the SMM. The fundamental structure of these submodels relies neavily on 
work done dy Mansouri £2] and Sztenderowiez £21} although the overall 


memneture and application is quite different. 


Bas. | Maxing 
Program SMM calls Subroutine MIXING whenever it is time for a mix- 


ing event in a particular zone i. This subroutine performs zone mixing. 
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Our DaSic approach requires that the individual zones be modeled as 
stochastic mixing zones. Appendix C describes the details of this meth- 
od. ach mixing zone is perfectly macromixed with the degree of micro- 


mixing determined by the mixing intensity, 35 The method used for - 


mixing is coalescence/dispersion. 


zach zone consists of N. equal mass elements. Turbulent mixing 


Within zone 1 is characterized by the mixing intensity: 
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where Cs is the characteristic time for all elements in the zone i 
ensemble to undergo one mix. For Ns elements, the time between element 


moexing events, t_. is: 
mi 
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Seornete mixing event in zone i consists of the following: 


1, Two elements within zone i are chosen at random. 
This is accomplished using a random number generator which 
produces values of a single random variable that is evenly 
distributed between zero and one. This value is multiplied 
Dy the number of elements in the zone and rounded up to the 
nearest integer. This integer identifies the element number, 
i. The probability that any one element will be chosen is 
JN, . 

2. The properties of each element are updated. 

3. The elements are combined and then separated again 
into two elements with equal properties, conserving species 
mass and enthalpy. 

4. If the new elements satisfy the combustion criteria 


after mixing, they are burned. 
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The characteristic mixing time, cae is the same order of magnitude 
as the kinetic update time, consequently a becomes very small for 
large values of N,- The value of a is updated for each zone at the 
Start of each MDM timestep and the smallest of the zone mixing times is 


used by Program SMM for the basic simulation timestep. 


3.3.2 Flow 

Subroutine SMZ calls Subroutine FLOW at the start of each MDM time- 
Step. As discussed in Section 2.5, Program PROCMDM uses conservation of 
mass to calculate net mass flow, fuel vapor mass flow, and burned fuel 
mass flow between zones. These flows represent convection, turbulent 
diffusion, and the rezoning of cells to richer or leaner zones due to 
changes in their total fuel mass fraction. These are net flows. They 
do not consider all exchanges back and forth across zone boundaries. 

- The flow between zones in the model must be accomplished within the 
model structure. This means exchanging elements between two ensembles 
of elements. In order to develop an effective algorithm for modeling 
the flow, the following objectives and constraints were considered: 


1. Zone elements must be Kept intact. 

2. The selection of elements should adhere to the basic 
"random selection" criteria to the greatest extent possible. 

3. The exchange of elements must transfer the correct 
net mass flow (FM). 

4. The exchange of elements must transfer the correct 
amounts of fuel vapor (FMV) and burned fuel (FMBF). To acm 
complish this, combustion in each zone must approximate the 
MDM and the flow algorithm must include one for one exchange 
of elements across the boundary in addition to the net flow. 

5. The resulting overall distribution of elements ac-— 
cording to total fuel mass fraction should be continuous at 
zone boundaries and should converge to a single distribution 


aseuae numbermeot zones increases. 






4 number of alternative algorithms were tried. The following alzgo- 
rithm best satisfied our objectives and constraints (Refer to Figure 3- 
t): 


1. Calculate the number of elements required to flow 
between zones to satisfy the net total mass flow (FM). The 
net mass flow between any two zones will be from a donor zone 
to a receiving zone. Arrows in Figure 3-1 indicate the posi- 
tive direction, but 7M, FMV and FMBF may be independently 
positive or negative. 

2. The flows are considered is sequence, starting with 
Flow number one. (FM(1),FMV(1),FMBF(1)) 

3. Elements in the donor zone are sorted into three 
groups: (1) Elements containing fuel vapor (total fuel mass 
fraction greater than the upper limit for combustion), (2) 
elements rich in burned fuel (burned fuel fraction greater 
than the lower limit for combustion) and (3) Lean elements 
(other). 

" 4, When selecting the flow elements, if the required 
fuel vapor flow (FMV) is in the same direction as the total 
flow (=M) and exceeds the required ourned fuel flow (FMBF), 
Beneaetmelements are selected from Group 1 in the donor zone 
and added to the receiving zone. If the required burned fuel 
flow (FMBF) is in the same direction as the total flow (FM) 
and exceeds the required fuel vapor flow (FMV), random ele- 
ments are selected from Group 2 in the donor zone and added 
to the receiving zone. Otherwise random elements are select~ 
ed from Group 3 in the donor zone and added to the receiving 
zone. If the elements in a particular group run out and an 
element is required, a random element is selected from all 
the remaining elements in the donor zone and added to the 
Receiving zone. TAS net flow process is continued until the 
total mass flow requirement (FM) is satisfied. 

5. Once the net total mass flow has been achieved there 
may still be significant discrepancies in fuel vapor (FMV) 


and burned fuel (FMBF) flows. These discrepancies are cor- 
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rected by exchanging elements one for one between the two 
zones. Zlements in both zones are sorted into the groups as 
described in item 3 above. One element is selected from each 
zone according to the same criteria as item 4 above. These 
elements are exchanged between the two zones. This process 
ms repeated until the fuel vapor and burned fuel flows are 


Marien wolerance or one Of the groups runs out of elements. 


Subroutine FLOW accomplishes the net flows and calls Subroutines MIXINGA 
SeemixiINGB if one for one excnange is required to accomplish the correct 
fuel vapor and burned fuel flows. Subroutine MIXINGA is used for flow 
memame trom the air zone. Subroutine MIXINGB is used for all other 


flows. 


3.3.3 Evaporation Model 

The amount of fuel evaporated in each zone during the next MDM 
timestep is input with the MDM data by Subroutine SMZ at the start of 
each MDM timestep. If this amount exceeds the mass of one element and 
if there are already elements in the zone with which the fuel vapor can 
meee Subroutine SMZ calls Subroutine EVAP. 

Subroutine EVAP selects a random element already in the zone, up- 
dates its properties and mixes it with a pure fuel vapor element. The 
sensible and latent heat required to bring a liquid fuel element to 
saturation temperature and evaporate it is subtracted from the enthalpy 
of the mixed elements. Otherwise species mass and enthalpy are con- 
served as in a normal mixing event. The elements are separated into two 
elements with equal properties. This process is repeated until the mass 
of fuel vapor added is equal to the required evaporated fuel mass fOr 


the timestep. Required evaporation in excess of the mass of an integer 
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number of elements is carried over to the next MDM timestep. 


fs.¢ Lgnition Delay and Combustion Model 

Elements are tested to determine if they satisfy the combustion 
criteria whenever chemical properties are updated artd before and after 
each mixing event. Subroutine PROP is called by Subroutine SMZ when the 
meme Since the last kinetic update exceeds the specified Kinetic update 
time and prior to the mixing of two elements. If an element contains 
@eourned fuel Subroutine PROP will call Subroutine CMBUST. Subroutine 
CMBUST is also called after mixing if the mixed elements contain un- 
burned fuel. If an element satisfies the combustion criteria, Subrou- 
tine CMBUST instantaneously burns the element at constant oressure to 
equilibrium products. A new temperature is calculated for the products 
by Subroutine BTEMP and the element's burned gas fraction (BGFR) is set 
yo one. 

iie cembUstion criteria are: 


1. The element must contain unburned fuel. (BGFR < 1) 

2. The element's ignition preparation factor must exceed 
one. (PREP, > ae 

3. The element's total fuel equivalence ratio must be 


within combustible limits. Co, Kk bp) 


The ignition delay preparation factor in element i is calculated as 


follows: 


dt At. 
> 


meeps | smoy + aothy ii: 
id. J 
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where the ignition delay time is expressed as [22]: 


as” Seo 5SaS ini exp(2100/T, ) Ss) (3.4) 
Memeustible equivalence ratio limits of 0.3 to 1.5 were found to best 
reproduce zone combustion as predicted by XIVA. 

fhe SMM comoustion model is not constrained by the combustion pre- 
eeeved in the AiVA solution. Two significant problems with the KIVA 
solution (Section 2.5) made this necessary: (1) KIVA's initial burning 
was too fast, (2) Excessive numerical diffusion damped out large scale 
convection and mixing, resulting in significant unburned fuel. The SiMM 
was able to correct these deficiencies to some extent, but in the pro- 
Seas tne quantity of burned versus unburned fuel in the SMM solution was 
meee aditierent from the KIVA solution. This caused problems with che 
eee flow algorithm which is constrained to match the flow of burned and 
Gm@emrmned fuel in the KIVA solution. Ideally, if the XIVA solution were 


Correct, tne SMM combustion should be constrained to agree. 


3.3.5 Heat Transfer Model 

Wall heat transfer is updated at the end of each MDM timestep by 
Subroutine QWALL. OQWALL is called by Subroutine SMZ. The wall heat 
transfer calculated by KIVA includes only convection/conduction. Radia- 
mioneneat transrer is not calculated by AIVA. The purpose of Subroutine 
QWALL is to distribute the zone neat transfer specified by KIVA among 
the zone elements. The heat transfer to a particular element is assumed 
to be proportional to its surface area and to the temperature difference 


between the element and tne wall: 
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eee. Ty = (mv)? rT, - 7 Ges) 
maere: 
Q, = Wall neat transfer for element i. 
es = Wall temperature. 
qT; = Temperature of element i. 
Vv = Specific volume of element i. 


i 


Given that this relationship is true for all elements: 


a 
Q Me (T, cs) 
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Q, is added to the element enthalpy for each element. 
3.3.5 Volume Constraint 

In addition to conservation of mass, species and energy, the total 
volume of all the elements must bde equal to the actual cylinder volume. 
MitsecOnstraint efrects conservation of energy through the PV term in 


the First Law. Considering conservation of energy for one element: 


Repeeaes  ~ W = QO. pdv. (sao 
or: 


2 
AH = Q, + | V,dp = Q5 + SCV, (t,) + V, (t,) Jap C3uiG)) 


wnere: 


AH = Hd, (t,)-H, (t,) = change in enthalpy of element i 





=) — 


5 = heat transfer into element i 
v. = vOlume of element i 
5 = pressure 
The volume constraint is updated at time t Pee ral Ss came a other 


Ze 


MDM timestep processes nave been completed (mixing, combustion, heat 
transfer). These processes are accomplished at constant pressure with 
no volume constraint. The additional enthaloy cnange which results from 


adiabatically updating the element volume may be expressed as: 


mR (t,, )T,(t,) 


Be vot une™ me (t5, ET, (t,) ~ T1(t,,)] = S{v,(t,) + pte) Jap 
where: (329) 
C, ee of the MDM Cimestep 
co end of the MDM timestep before the volume update 
t, = and of the MDM timestep after the volume update 


See weme., ) = specific heat at constant pressure 


R(t) = R(t.,) = gas constant 


Subroutine VOLUME uses an iterative tecnnique to calculate new 
element temperatures and a new SMM pressure while satisfying tne volume 


Seaseraint. Solving for T,(t,); Equation (3.9) becomes: 


y+ .5v.(t, apse (t.,) 
ee ee Pe (3.10) 


“ORCC, AP 
C1 (t5, p(t) 
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The iterative procedure is as follows: 


1. A value for p(t.) is assumed. For the first itera- 
tion p(t,)=p(t,). Afterwards p(t.) is calculated on the 
Beevious iteration. 

ZF Ap=p(t,)-p(t, ). 

3. New element temperatures and volumes are calculated 
using Equation (3.10) and the ideal gas law. 

4, Total element volume is calculated and compared to 
tne required value. If the total element volume is within 
tolerance the iteration stops and element properties are 


updated. If not, a new value for p(t.) So “Cameubaved: Us lis : 


V 
SMM 

Co(t,)] = [| = J Cplt,)] Gain) 

2° “new Vpm 2 sold 
where: 
1 > = ; 
- Vosng ; (mv, ) sum of the element volumes 
Yup = Required total cylinder volume 


This value is used to start another iteration. 


Sudroutine YOLUME is called by Subroutine SMZ at the end of every MDM 


Eames tep. 


ma.) NO Model 

Nitric oxide (NO) is the predominant oxide of nitrogen produced in 
an engine. The principal source of NO is the oxidation of atmospheric 
oxygen. In lean and near-stoichiometric mixtures the Arne lpalweedea 
tions governing the formation of NO are those proposed dy 


Zeldovien: [23] 








2505 


1.0+N. = NO+N CD) 


Bee ae O 


5 NO + O (3.13) 


Lavoie, Heywood and Keck [24] suggest an extension to this mechanism 


especially for rich mixtures: 


Semet On oe NO + H (3.14) 


Assuming a steady-state approximation for the nitrogen atom concentra- 
tion, [N], and using this extended Zeldovich mechanism, rate expressions 


recommended by Bowman [25] reduce to the following simplified expres- 





SO!) : 
diNo] 1 - (NOI KCO,IEN,] 
= 2k, (OJ(N.J)$ ——_-———_—_—_—__——__ | (gmole/cess) eae 
dt 1 2 + + + 
ee NOI kOe = aeraD 
1 oe 3 
where: 
r J = species concentration (gmole/cc) 
ek. = forward and backward reaction coefficients 
+ = , + = 
K = (kK /K,)(KA/K ) 


Since NO production in the post-flame gases dominates flame-front pro- 
duced NO, combustion and NO formation processes are assumed to be dé- 
coupled. Concentrations of 0, 02, OH, H and N2 may then be approximated 


by their equilibrium values: 





d{NO] 2k,U5(1 ea) — 
ee ee . iil 
Ae HG 5 a) (gmole/cess) 5 








Ops: 


where: 
T; = temperature of element i (XK) 
05 = gas density of element i (g/cc) 
[ ie = equilibrium species concentration (gmole/cc) 
oO = LNOI/U, 
U, = [NO]. 
Us = [NJ] [0]. 
k-(N.1 [0 
ee ei a 
5 cue or 
KN] [0,1 ,* KCN] [OH], 
K, = 7.8613 exp(-38000/T,) (ce/gmole+s) [26] 
KS =z 1.5E9 exp(-19500/T, ) (cce/gmole-s) [26] 
« ee (ec/gmole+s) £26] 


subroutine PROP updates NO concentration in an element using =quation 
(3.16). Equilibrium values for U1, U2, and U3 are provided in the NASA 
equilibrium data for a range of temperatures, voressures and equivalence 
ratios of the burned gas. Subroutine SPECNO interpolates between the 
tabular values to calculate Ui, U2, and U3 at the specified temperature, 


Pressure and equivalence ratio. 


3.3.8 Soot Model 


Diesel particulates consist primarily of soot on which some un- 


burned nydrocarbons have deen absorbed. The individual particles are 






omWVew eases) =| as = = 


—=>>_ wae 


> 
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found to be clusters of many small spheres or spherules of carbon. [27] 


A typical composition of dry soot might be CH N but this var- 


ee Ol 
ies widely. Spherules have a concentric lLamellate structure much like 
the layers of an onion. Spherules vary in diameter between 10 and 80 
nm, but most are in the 15-30 nm range. Spherule density is approxi- 
mevely 1.8 g/cc. 

Most of the information available on the fundamentals of soot for- 
mation comes from studies in simple premixed and diffusion flames, 
stirred reactors, shock tubes, and constant volume combustion bombs. 
[28] Soot measurements in DI diesel engines and in similar fuel rich 
diffusion flames show high concentrations of soot in and around the 
Mmee=ricnh cores. This indicates that pyrolysis is an important source 
of soot. Amann and Siegla [27] conclude that the production of diesel 
particulates involves a complex series of chemical and physical proces~ 
ses. These are represented in Figure 3-4. 

The precise details of the chemistry- leading to the formation of 
soot are not well understood. Figure 3-5 represents a simple mechanis~ 
tic model for the nucleation of soot. [28] At low temperatures an aro- 
matic hydrocarbon can produce soot via a relatively fast, direct route 
that involves condensation of the aromatic rings into a graphitelike 
structure. This production increases with temperature up to around 
1800K. Experiments by Prado and Lahaye [29] support such a condensation 
mechanism. Above 1800K, a slower indirect route is favored that re- 
quires break-up into smaller fragments which polymerize to ultimately 
form soot nuclei. An ionic mechanism proposed by Howard [30] may also 


contribute to soot formation, but it does not appear to be a major con- 


Berpoutcor . 
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Given the very limited knowledge about these mechanisms and the 
total lack of quantitative prediction methods, we ultimately selected an 
empirical correlation for predicting soot formation. Wang, Matula and 
Farmer [31] studied soot formation for toluene behind reflected snock 
waves over the temperature range 1400 K to 2500 K and the pressure range 
2.5 to 10 atmospheres uSing a laser beam attenuation technique. Their 
results were consistent with the nucleation mechanism discussed above 
and they included two correlations, one with oxygen in the mixture and 
one without. This provides a low oxygen limit on the formation rate 
rather than naving a rate which gets very large as the oxygen goes to 
zero. The large temperature and pressure range of their data approaches 
that found in diesel combustion. 

The correlation equation of the apparent soot formation rate for 


toluene/argon/oxygen mixtures is given Dy: 


~ 


5.5516 [Og 1°"? *Car]*'?exp(-m1 .8/at - 48.1o(1/RT - 1/RT_)1 


Q = 
soot (0,377 
(g/cees) Coe) 

where: 

f ] = species concentration (gmole/cc) 

at = Universal gas constant 

ie = 1800 K 

mn 


Orror | =< T 
m 


jeer. > TT 
m 


For toluene/argon mixtures (low 0. Lie): 





=<) = 


1.48 24 
2 1.04613 re [ar] 2 expl=2927/7RT +329. 70(17AT — 7nd 


SOOt 


(g/ecss) (2310) 


These rate equations were multiplied by a calibrating constant (SOOTC) 


and applied directly in the model with: 


(CHa) = Cig gtig 74 ; (3.19) 


ae Mie 'C a 
tar] = 9;/ MW - [C,) 3H1g 7] - (0,1 (3.20) 
° soot mass formation rate 
MSOot, for element i ~ Te"i"soot, (g/S) (3.21) 
where: 
i= element mass (z) 
Vv. = specific voiume of element i (cc/g) 


Mmicebuissose of che calibrating constant is to relate the rate of 
sooting for diesel fuel in a turbulent flow to that of toluene in a 
snock tube experiment. All the soot mass formed during a timestep is 
meumed to take the form of new spnerules of density ese and radius 


c" The soot surface area contributed by these new spnerules is: 


' t 
Shere : 4 


AA (om) (3.22) 


o = 
tOrm. 
1 P soot O 


SeCour@ineesimul caneously with soot formation iS Soot oxidation. 
Park and Appleton [32] have shown that the surface reaction rate for the 
oxidation of soot in a flame is nearly the same as that for pyrolytic 
eeaoni te. In lean and near-stoichiometric mixtures where O02 is the 


Soum@eary Oxidant the semi-empirical formula proposed Dy Nagle and Strick- 
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land-Constable (33] has proven very satisfactory for predicting this 
reaction rate. Measurements taken by Neoh and Howard £34] indicate that 
in fuel rich flames the OH radical becomes the principal oxidant and 
that the rate predicted by Nagle and Strickland-Constable under-predicts 
soot oxidation. This effect could be significant in the richer region 
of tne diesel fuel spray where most of the soot is formed, although the 
Overall diesel equivalence ratio is very lean. Since the quantitative 
effect of the OH radical has not been thoroughly evaluated for the full 
range of equivalence ratios encountered in diesel combustion, only the 


femee> and Strickland~Constable formula will be used here: 


son 12 ws = BPgo {1 =) | (g/em+s) Cae 3s) 

where: 
] 

x" T+ k 7/ KpPo> 

a= 20, exp(~15000/T ) 

Ke = 4,46E-3 exp(7640/T. ) 

kp = 1.5125 exp(-48000/T, ) 

Ko Saeed exp(2060/T, ) 

amas Dartial pressure of 0, in element i (atm) 


After formation and oxidation during kinetic timestep, At, the final 


soot mass becomes: 


me + m At - w (A + 45 ) (g) (3.24) 


nl m 
Soo... SOOT. Soot. ox soot. “rorm, 
a it 1 i,1 
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and the final soot area becomes: 


A 
OT 


where: 


OX 


m 
SOOt, x 
1,J 


A soot. : 7 
Tad) 


Subroutine PROP 


Subroutine PROP 


M 00t. 

A ( ee ie 
SOOt. m 

ia soot, 


273 


bem) 225) 


ot 
soot oxidation surface recession rate (g°/om ) 


mass of soot in element i at time j (g) 


surface area of soot in element i at time j Com*) 


calls Subroutine SOOT which calculates soot formation. 


calculates soot oxidation and updates the quantity of 


soot in each element. 
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CHAPTER FOUR 


EXPERIMENTAL DATA 


4.1 Data Requirement 

In order to evaluate the Stochastic Mixing Model it was necessary 
tO obtain or generate test data. The calculation of Nitric Oxide (NO) 
Meee om 1S dependent on only one calibrating constant. This is the 
feorime factor for mixing intensity. This constant is adjusted to match 
vene mass of fuel bdurned in each zone and the overall pressure trace to 
eae MPM results. This adjustment does not consider NO and does not 
@emasider experimental results. Consequently, NO is an unbiased indica- 
cor of now well the SMM method is predicting slow chemistry. The SMM 
provides cylinder averaged NO mass fraction as a function of crank an- 
gle. Most diesel NO data is derived from either probe sampling, spec- 
troscopic analysis or exhaust measurements. Probe studies provide local 
NO measurements at various crank angles, but do not provide cylinder- 
everaged values. Spectroscopic analysis is severely limited in direct 
injection diesels because of the opaque diesel spray and overwnelming 
SeoL radiation. Exhaust measurements do not resolve crank angie depen- 
dence. One technique that does provide this data is to dump and quench 
the cylinder contents for chemical analysis at various crank angles. 
Fortunately, tne University of Wisconsin-Madison nas had an ongoing 
Study using this technique and their results will be used in our analy- 


sis. _.19,35,36,37,38] The specific test cases we nave used are those 
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discussed in Reference [35]. 


meeeDescription of the Test Engine and Apparatus 

The test engine used at the University of Wisconsin is a single- 
eylinder direct-injection diesel engine. The specifications for this 
engine are listed in Table 4-1. Dumping of the cylinder contents is 
achieved by cutting a one-inch diameter steel diaphragm mounted in the 
cylinder head, allowing the cylinder gas to expand into a quench cham- 
ber. This process is repeated at various crank angles for a fixed en- 
gine operating condition, providing a history of cylinder-averaged NO 
over the combustion cycle. 

Figure 4-1 is a diagram of the cylinder head and combustion cham- 
ber. This head was specifically designed and manufactured for their 
experiments. It contains a one inch diameter dumping port, injector 
hole, spi aust port, and intake port with a shrouded intake valve. The 
Shrouded intake valve allows experiments at various Swirl ratios. 
Shroud adjustment was calibrated at steady flow conditions for a reason- 
able range of swirl values uSing a paddle-wheel transducer. 

Figure 4-2 is a diagram of the dumping system. Its major compo- 
nents are the quench chamber, the ball valve which isolates the quench 
chamber from the engine immediately after dumping, the connecting tube 
which holds the diaphragm and cutting mechanism, the cutter actuating 
mechanism, and the pressure safety valve. The diaphragm is held at one 
end of the connecting tube by clamping between outer and inner concen- 
Pete vumees. The cutter is a third concentric tube which slides inside 
the inner clamping tube. When the cutter tube is forced down by the 


actuating mechanism the diaphragm is sheared around its circumference. 
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The rapidly expanding cylinder gases cause it to fold upward around a 
diagonal cross-member. This process takes about 0.1 ms. 80% of the 
cylinder gases are collected. The quench tank is isolated from the 
connecting tube and engine by a ball valve. The tank is designed to 
provide an adequate volume of helium quenching gas .and to dissipate the 
shock produced by the inflow. 

Figure 4-3 is a schematic of the dumping and control system. The 
dumping event is triggered by a signal from a magnetic pickup placed on 
the camshaft. This signal is received by a timing circuit which actu- 
ates the cutter mechanism solenoid and synchronizes engine shutdown and 
isolation. This includes closing the ball valve, the engine intake and 
exhaust valves, and the fuel cut-off valve. 

The engine is equipped with an electric dynamometer and a digital 
counter to measure speed. Fuel consumption is measured using a fuel 
Peienine balance and electronic timer. Air supply is measured using a 
critical flow orifice. Cylinder pressure is measured using a piezo-~ 
eHecctric transducer. 

A complete test run proceeds as follows: 


1. The engine is started and warmed up. 

2. With the diaphragm in place and the ball valve open, 
the quench tank is pumped out using a vacuum pump and re- 
filled with helium. This is repeated several times to ensure 
that all air has been removed from the system. The final 
helium pressure is set slightly above atmospheric. Quench 
tank temperature and pressure are recorded. 

3. The triggering signal is set to occur at the desired 
crank angle. This value will only approximate the dump an- 
gle. The actual value is obtained by analyzing the cylinder 
Dueccoure trace. 


4. The timing circuit is activated and the cylinder is 
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dumped on the next complete cycle after receipt of the trig- 
gerine signal, 

5. The cylinder pressure recorder is also activated for 
the dumping cycle. 

6. A portion of the collected gas in the quench tank is 
passed through a drier and filter and stored in a Tedler bag 
for gas analysis. A Barber Colman gas chromatograph (GC) is 
used to measure O5»N5,CH, ,CO and CO... Non-dispersive in- 
frared (NDIR) analysis is also used to measure cO,- The 
remainder of the gas is passed through a chemiluminescent 


analyzer (CLA) for NO and NO. analysis. 


4.3 The Test Cases 

Table 4-2 describes the five test cases. Safety considerations 
limited the engine speed to 1000 RPM and the engine load to an overall 
mi vaience ratio of 0.5. Runs using an eight-hole injector were made 
at two swirl ratios, zero and ten percent £GR, and two injection tim- 
mes. 

zach NO versus crank angle history represents a series of cylinder 
dumps at constant engine conditions. The effect of cycle-to-cycle vari- 
ations was analyzed by multiple dumps at a single crank angle. For NO 
levels below 1000 ppm the variation was less than 10 percent. For NO 
levels above 1000 ppm it was less than 2 percent. 

Complete test data and pressure traces are listed in Appendix G. 


Note that NO mass fractions must be multiplied by a correction factor to 


meeoune fOr melium dilution. 
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UHAPTER Five 


MODEL EVALUATION AND SENSITIVITY 


5.1 Sensitivity to Simulation Parameters 

Mice stestep 11) Cvaluating the Stochastic Mixing Model approach 
Bonvo consider its internal consistency: its sensitivity to important 
model and physical parameters and the variance in results for different 
stochastic runs with all other parameters neld constant. To accomplish 
this we analyzed the effect of varying tne total number of elements, the 
M@exing intensity scaling factor, and the number and definition of the 


zones on the results and on element distributions. 


5.1.1 Number of Elements 

Piemroval Timmber of elements used in ae SdvielSececzitLeal model. 
parameter. The number of elements is determined by the individual ele- 
ment mass (ELMM), specified as a model input parameter, and the total 
Mass of injected fuel and intake air per cycle, specified by the engine 
operating conditions. A random number generator is used in many of the 
ommM submodels to select elements for mixing and exchange with otner 
zones. Included in the model input parameters is a random number seed 
which determines the series of random numbers selected for a particular 
run. A different random number seed will result in different element 


selection and a different solution. Output iS averaged over a number of 
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stochastic runs with different random number seeds. Figures 5-1 and 5-2 
show mean maximum pressure, mean maximum NO and mean maximum soot versus 
the total number of elements used in the runs. Each data point 
represents the mean of ten stochastic runs with different random number 
peed. saenerun uses 10 zones, a mixing intensity factor of 1.1 and MDM 
data for Test Run 17. Four different element sizes were used for 
element totals of 1437, 2875, 5750 and 11500 (ELMM=0.0012, 0.0006, 
0.0003, and 0.00015 g). The curves connect the four mean data points. 
The vertical lines indicate the standard deviation and the tick marks 
indicate the 95 per cent confidence interval for the mean value. [51] 
Two important observations may be made about this data. First, the 
standard deviation decreases with more elements and second the mean 
value changes with the number of elements, approaching an asymptotic 
limit with more elements. Both of these observations are as expected 
and may be attributed to the stabilization of the distribution of 
element properties with more elements. To achieve continuous 
distributions of properties within each zone requires a sufficient 
number of elements. As these distributions approach their limiting 
values they become less sensitive to further increases in the number of 
elements and to changes in the random elements chosen. Figure 5-3 shows 
the distribution of elements for these cases as a function of total fuel 
mass fraction and the number of elements. These distributions converge 
as the number of elements is increased. Typical of all the 
distributions examined is that they start off with a large group of 
elements that are very rich and a large group that are very lean. These 
two groups should gradually mix and converge with increased crank angle 
to a distribution centered on the overall fuel mass fraction. This 


occurs in our results although our distributions always have a 
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significant number of very lean elements left at the end. This is due 
bo the incomplete mixing predicted by KIVA. 

Pompucer run time for the SMM varies directly eh the number of 
elements, so for computational efficiency of a single run it is desir- 
able to nave fewer elements. However, standard deviation decreases with 
the number of elements and fewer runs are required with more elements 
for the same computational accuracy. <A compromise number of 5750 ele- 
ments (ELMM=0.0003 g) was selected for the remainder of our runs. Mean 
results for this number of elements are within 5 per sane of their 
asymptotic values and the 95 per cent confidence factor range for ten 
runs is less than plus or minus 5 per cent. Run time from the start of 
injection to 40° ATDC for one run on a VAX 750 is approximately 90 mi- 
nutes. 

5 Mine Intensity Scaling Factor 

Most important among the physical parameters is the mixing intensi- 
ty scaling factor (CBETA). As shown in Equation C.16 mixing intensity 
may be derived from basic principles to within a linear scaling factor. 
This scaling factor must be specified in the model input. Figure 5-4 
shows cylinder pressure, mass of fuel burned, NO, and soot versus crank 
angle and CBETA. Included are plots of the experimental test results, 
the KIVA results and the SMM results. Each SMM curve represents the 
mean of 10 stochastic runs with 5750 elements and 10 zones, using MDM 
data for Test Case 17. 

Initial burning and pressure rise in the SMM are slower than the 
KIVA results. This may be attributed to the ignition delay submodel 


included in the SMM which slows down this initial burning phase. KIVA 





~6/7- 


does not consider pre-ignition chemistry and its initial burning is too 
rapid. For the range of mixing intensity factors considered, the maxi- 
mum pressure predicted by the SMM iS reasonably close to ane KIVA re- 
sults. Increasing CBETA results in increased burning and higher pres- 
sures. This is consistent with increased mixing. With CBETA fixed, 
trends in maximum pressure predictions at other engine operating condi- 
tions are also consistent with the KIVA and experimental data. The SMM 
Mecosure trace eventually converges with the KIVA and experimental re- 
Sults. The discrepancy in the pressure traces from peak pressure to 
convergence is attributed to possible diaphragm leakage in the experi- 
mental results and to incomplete combustion predicted by KIVA, which may 
be seen in the mass~burned plot. The value of CBETA selected for com- 
parison to the experimental data (CBETA=0.9) was chosen to give the best 
matchup between SMM and KIVA pressure -traces. Experimental results were 
not considered in determining CBETA. 

The shape and the magnitude of the NO curves agree well with the 
experimental results for this test case. NO concentration increases 
with CBETA, pressure and mass-burned. This is consistent with increased 
mixing and earlier combustion. 

Unlike NO, soot formation predictions are dependent on a calibrat- 
ing constant (SOOTC). The value used (SOOTC=0.001) was chosen to give 
agreement between exhaust soot predicted by the SMM (Test Run 17, CBETA 
equal to 0.9) and the experimental results. Since toluene combustion 
generates far more soot than diesel fuel, this constant is substantially 
different from unity. The application of the toluene shock-tube correl- 
ations to the diesel environment is, however, highly speculative. This 


value was held constant for all subsequent runs. In order to use the 
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experimental results to calibrate the soot submodel it was necessary to 
convert an exhaust Bosch Number to percent Carbon. [52] Soot calcula- 
tions made by the SMM are considered qualitatively and are not used for 
quantitative evaluation of the model. The soot curves show a maximum 
near the end of injection followed by rapid oxidation. Increased mixing 
reduces the amount of soot produced and increases the amount of soot 
eanaized. This is consistent with our general knowledge about diesel 
soot emissions. 

Figure 5-5 shows the distribution of elements as a function of 
total fuel mass fraction and mixing intensity at different crank angles. 
As CBETA increases, the rich and lean peaks converge more rapidly resul- 
ting in narrower and taller distributions. This is consistent with more 


maxing. 


5.2 Sensitivity to Zones 

Maeenumber and definition of stochastic mixing zones used in the 
SMM is fundamental to the basic hypothesis of our approach and a criti- 
Cal parameter in determining the results. We assume that an inhomogene- 
ous flow may be broken down into a discrete number of zones which indiv- 
idually may be modeled as well-mixed on a microscopic scale. The valid- 
ity of this nypothesis is dependent on local turbulent length scales and 
CurdDulent intensities. "Well-mixed" implies that any element within a 
zone is equally likely to mix with any other element in the same zone, 
nowever, this is not valid if the zone is much larger than the typical 
turbulent length scale. Increasing the number of zones and consequently 
decreasing their size should improve the validity of our hypothesis. We 


Would expect that as the number of zones is increased and our hypothesis 
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secomes valid, the results should converge to a solution. Increasing 
cne number of zones would eventually become computationally unmanageable 
and other model hypothesis, such as having simply-connected zones, would 
begin to break down. Our concern was that this might occur before con- 
verging oa Solution. 

momalscussed in Section 2.6, the KIVA output is sorted into 10 
zones. Any combination of these ten zones may be used in the SMM. 

Table 2-2 lists the zone definitions used in our analysis. Runs were 
made using 5,7,8,9 and 10 zones. Two different 8 zone definitions were 
used: one with more division around stoichiometric and one with more 
@evyision richer than stoichiometric. All runs were made using 5750 
bOtal elements, with CBETA equal to 0.3, and using MDM data for Test 
Base 17. 

Figure 5-6 shows cylinder pressure, fuel-mass burned, NO concentra- 
tion and soot versus crank angle and zone definition. Included are the 
omm, AIVA and experimental results. The results for 5 zones are very 
different from the others. The fuel-mass burned versus crank angle plot 
1s much slower and nas a different snape. Cylinder pressure for 5 zones 
is less and does not ultimately converge with the other cases. The 
shape of the soot profile is again dramatically different for tne 5 zone 
case. With 8 zones the curves begin to converge. Pressure and burned 
fuel plots are very similar for 8, 9 and 10 zones. The NO and soot 
Curves are more sensitive to small changes in temperature and converge 
more slowly, but the difference for 9 and 10 zones is very small. Of 
the two cases with 3 zones, more subddivision around stoichiometric re- 
meeees in a distribution most similar to the 9 zone case. This wen oe 


attributed to there being more elements and greater temperature sensi- 
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mivicey tO fuel mass fraction in the near-stoichiometric interval. 

The most critical mechanism by which the zone definition effects 
bese results appears to be through the fuel mass fraction distribution. 
Figure 5-7 shows these distributions for the various zone definitions. 
Increasing the number of zones results in more boundaries across which 
the flow is specified and increasingly constrains the overall distribu- 
tion. The larger zones in the 5 and 7 zone models tend to develop large 
peaks in their fuel mass fraction distribution around zone means. This 
effect is much less evident with more zones where the fuel is forced to 
be in the appropriate zone and fuel mass fraction interval. The distri- 
butions with more zones have more elements in the stoichiometric region. 
This results in higher mean temperatures, higher pressures, more NO and 
less soot. The distributions converge rapidly with more than 8 zones. 


ies is consistent with our mixing hypothesis. Ten zones are used in 


tne runs for comparison to the experimental results. 


5.3 Comparison to the MDM Results 

Becueemer oy) anad 5.2 compare SMM results to global MDM results such 
as average cylinder pressure, fuel-mass burned, NO and soot. The abil- 
ity of the SMM to reproduce individual zone processes as specified by 
the MDM solution is also important. Figures 5-8 thru 5-11 compare zone 
fuel mass fraction and zone fuel-mass burned in the SMM and MDM. 

As described in Section 3.3.4, SMM combustion is not constrained by 
KIVA. The ignition delay predicted by the SMM compares very well with 
the KIVA ignition delay, which is specified by the experimental results 
and provided as input to KIVA. (See Figs. 5-8 and 5-9) However, once 


combustion is allowed to occur in the KIVA solution it takes off much 
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meoeraoidly. ithe sMM combustion is constrained by the pre-ignition 
Seemistry criteria and proceeds more slowly. This is particularly appa- 
Pent in the richer zones where lower temperatures and the rich combus- 
tion constraint result in much slower SMM combustion rates. Except for 
Meme 1, the two plots ultimately converge, but quickly Stare co diverge 
again as the stable concentration gradients predicted by the KIVA solu- 
mem prematurely slow KIVA combustion after +20° ATDC. 

The decision not to constrain SMM combustion was made decause of 
the apparent deficiencies in the KIVA combustion SOL U@uOimn OUe .LMe COS tL 
of this decision is seen in the Total Fuel Mass Fraction plots (Figs. 5- 
meeand 5-11). The quantity of burned versus unburned fuel in the SMM 
solution was very different from the KIVA solution. This caused pro- 
Dlems with the SMM flow algorithm which attempts to match the flow of 
burned and unburned fuel to the XIVA solution. Burned and unburned-fuel 
flow errors are less than two percent of the total fuel before +20°, but 
increase to as much as 20 percent of the total fuel after +20°. Asa 
meeery, che zone fuel-mass fractions do not precisely match «<{VA, par- 
@eeularly atcer +20° ATDC. Ideally, if the KIVA solution were correct, 
the SMM combustion should be constrained to agree, Because of the ap- 
parent deficiencies in the KIVA combustion solution we chose to nave the 
best agreement occur early in the cycle and around top dead center. 

Mest Of the critical NO chemistry is complete by 20° ATDC so Chat evalu- 
ation of our two-step approach is still valid using NO as a criteria. 
We should, however, be cautious with any conclusions dependent on re- 


emits after 20° ATDC. 
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CHAPTER SIX 


COMPARISON TO EXPERIMENTAL RESULTS AND ANALYSIS 


6.1 Comparison to Experimental Results 

The next step in evaluating the Stochastic Mixing Model approach is 
the comparison of model results to experimental results and trends. 

This section compares model predictions to the experimental test case 
results described in Section 4.3. The experimental results include data 
for two injection timings, two swirl ratios and two levels of exhaust 
gas recirculation (EGR). KIVA and SMM runs were made for each of these 
test cases. SMM results represent the mean of 10 stochastic runs with 
identical engine operating conditions, but different random number 
seeds. All the SMM runs use a mixing intensity factor (CBETA) of 0.9 
and approximately 5750 elements (ELMM=0.0003 g). Table 6-1 summarizes 
the important features of the model and experimental results. Figures 
6-1 through 6-6 are plots of these results. 

The pressure traces and fuel-mass burned plots provide important 
global comparisons. Unfortunately, the comparison of pressure traces 
Was a problem for two reasons: (1) Initial KIVA combustion was too rapid 
and combustion during the expansion stroke was incomplete. These ef- 
fects were partially corrected in the SMM by not constraining the SMM 
Pombustion to agree with KIVA, but as a result their pressure traces 


represent different heat release profiles. (2) The experimental pres-~ 
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sure traces start out looking normal, but for Test Cases 17, 18, 20 and 
21 they seem to "fizzle out". This discrepancy was discussed in Section 
2.5.1 and is attributed to possible leakage around the dumping diaphragm 
in the test engine. The mixing intensity scaling factor used for subse- 
quent comparison runs (CBETA=0.9) was selected to beSt match the maximum 
SMM pressure to the maximum KIVA pressure for Test Case 17. Once this 
was done, the maximum SMM pressure compared well to the maximum KIVA 
M@eessure for each run. This is an important indication of model consis- 
tency. Ignition delay and initial pressure rise predicted dy the SMM 
compare well with the experimental results. Towards the end of the 
cycle the incomplete mixing of fuel and air predicted by KIVA leaves 
some very rich zones with significant unburned fuel. The fuel-mass 
burned results for both KIVA and the SMM show only 80-90 percent burned 
fuel at +80° ATDC. In zones where the mean fuel mass fraction is within 
combustible limits the SMM ultimately mixes and burns more fuel than 
mEVA, but in richer zones many elements never satisfy combustible limits 
@ee,do not Durn. The SMM fuel-mass burned results are consistent with 
the experimental results in that the two nigh swirl cases (18 and 21) 
and the early injection case (19) result in more complete combustion, 
Semone SMM is not able to burn all the fuel dDecause of the XIVA con- 
eeraints. 

NO results will be discussed one test case at a time, comparing the 
results of advanced injection timing, increased swirl and increased EGR 
to the odasic test case, Test Case 17. The curves from all five test 
cases are plotted together in Figure 6-65. The ability of the SMM to 
predict NO is an excellent quantitative indication of its ability to 


predict slow chemistry. There are no calibrating factors in the NO 
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Seeulation and the oulk of the NO chemistry occurs prior to +20° ATDC 
Mere the SMM results are most valid. 

peerecsults for Test Case 17 are plotted in Figure 6-1. The NO 
plot snows excellent agreement with the experimental data although the 
experimental results show a slight increase towards the end of the cycle 
while the SMM results are nearly constant. NO results for Test Case ils: 
are plotted in Figure 6-2. The increased swirl in this case results in 
less fuel spray penetration and increased mixing intensity. Ultimately 
more of the fuel is mixed and burned than in Test Case 17, but due to 
less penetration, premixed combustion is less and combustion occurs ina 
richer mixture. This results in lower burned-gas temperatures, less NO 
and more soot. The NO reduction from Test Case 17 to Test Case 18 is 
approximately 40 percent in the SMM versus 26 percent in the experimen- 
Bar results. NO results for Test Case 19 are plotted in Figure 6-3. 
Agreement between the SMM and the experimental NO results is not as good 
as in the other cases. The SMM predicts only a 31 percent increase in 
NO between Case 17 and Case 19 (10° injection advance) versus a 90 per- 
cent increase in the experimental results. This 90 percent increase 1s 
in agreement with that predicted in other experiments with similar oper- 
meine conditions. [52] The SMM NO trace does not start up as quickly 
and falls off at +20° ATDC. Possible causes of this disagreement in- 
clude: (1) Breakdown of the model after +20° ATDC (results are more 
consistent before +20°). (2) Inaccuracy of the KIVA initial flow condi- 
tions which would have a greater impact in the advanced injection case. 
(3) Inaccuracy of KIVA initial burning due to the lack of pre-ignition 
chemistry in our application. NO results for Test Case 20 are plotted 


in Figure 6-4. Ten percent EGR results in higher gas heat capacities 





maa lower cemperatures. This results in iess NO and more soot. Again 
the SMM results agree reasonably well with the experimental results. 
Bienowm predicts a 55 percent reduction in NO between Test Case i7 and 
Test Case 20 versus a 58 percent decrease in the experimental results. 
NO results for Test Case 21 are plotted in Figure 6-5, showing the com 
bined effect of increasing swirl and EGR. The SMM predicts a 58 percent 
reduction in NO between Test Case 17 and Test Case 21 versus a 66 per- 
cent decrease in the experimental results. 

Two limitations must be considered when analyzing the soot results: 
(1) The expression for soot production, Equation 3.17, includes a cali- 
brating constant. The soot constant (SOOTC=0.001) used for all the 
comparison runs was selected to match the soot loading at +80° ATDC in 
the SMM to the experimental results for Test Case 17. The application 
of the toluene shock-tube correlations to the diesel environment is, as 
Stated before, highly speculative. (2) Important soot chemistry occurs 
after +20° ATDC where the SMM assumptions begin to break down. Because 
memcnese Limitations the quantitative validity of the soot results is 
mmelear and they are only discussed qualitatively. 

in all cases (Figs. 6-1 thru 6-5), the soot plot reaches a maximum 
meound the end of injection and then rapidly oxidizes. Maximum scot is 
approximately two orders of magnitude larger than Che Soot at exhaust. 
eae hump at +20° ATDC is attributed to the soot production rate (Equa- 
tion 3.17) increasing as element temperatures approach 1800 K. Cylinder 
gas temperatures are well above 1800 K at TDC and drop below 1800 K 
Puring expansion, passing through this maximum around +20° ATDC. The 
Srade-off between this effect, decreasing unburned fuel and rapid soot 


Bxecgavion is a possitie explanation for this hump occurring to a varying 
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degree in each of the test cases. Trends in the final soot loading for 
all test cases are correct, but only Test Case 19 shows good agreement 
in magnitude with the experimental results. Both the experimental and 
SMM results indicate a 25 percent reduction in soot from Test Case 17 to 
Test Case 19 at +80° ATDC. Better agreement for Test Case 19 than for 
the other test cases is attributed to the soot chemistry being more 
nearly complete for Cases 17 and 19 by +20° ATDC where the SMM results 
are most valid. Significant soot oxidation is still in progress after 


+20° for the other test cases. 


6.2 Learning from the SMM Results 

In addition to predicting global properties such as pressure, soot, 
and NO the SMM can provide detailed information about the reactive flow 
not obtainable from laboratory measurements. Examples of this are the 
turbulent distribution of fuel mass fraction and NO in the combustion 
chamber. 

Figures 6-7 through 6-10 are fuel mass fraction and mass weighted 
NO distributions as a function of total fuel mass fraction broken down 


by zones. The mass-weighted NO distributions are calculated as follows: 


z [NO], 
mass-weighted NO = ee (ppm) (Gal) 
N 
wnere: 
[NO], = mass fraction of NO in element i 
N = total number of elements in all zones 
j = all elements in the ATFMF increment 


The total fuel mass fraction increment used is 0.01. Refer to the zone 


Metin eions 17 Table 2-3. 
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Mates. Case 1/ at -5° ATDC (Fig. 6-7) the individual zone distri- 
butions are not yet fully developed. The fuel is dispersed over all the 
zones and many of the elements are very lean (4856 of 5644 elements are 
air zone elements). NO (Fig. 6-8) is most significant around stoichio- 
Meeeric and in the leaner elements and zones. In the .early injection 
case, Test Case 19, injection is complete and, although there are still 
many lean elements, all of the zones have a broad and significant TFMF 
@iestribution with a fairly flat zone total. The NO, produced primarily 
mache Stoichiometric elements, has mixed very rapidly into other ele- 
ments and zones. The quantity and broad distribution of NO in even the 
Premest zones (1 and 2) is surprising. 

Bye ADDC (Fig. 5-9) the <cypical "two-hump" TFMF distribution has 
developed in both test cases. This shape is due to the fuel vapor, 
Which is introduced as pure vapor elements, gradually mixing in with air 
elements. These two groups of elements, starting from tne right and 
Meme Of the MMF distribution, gradually converge. Case 19 has proceed- 
Bem uUrtner in converging than Case 17 because of its earlier injection. 
Zone 1 nas nearly disappeared by +5° in Case 19 while it is the dominant 
Pren zone in Case 17. The NO (Fig. 6-10) has dispersed even more com- 
Beetvely by this time and the mass-weighted NO distribution begins to 
morrespond closely with the TFMF distribution although there is still a 
Merinite Oeak around stoichiometric. The concentration of NO is signi- 
ficant even in Zone 1. 

By 25° ATDC the double humps in the TEMF plots (Fig. 6-13) nave 
meat yem@emgsed. Tne distributions in Test Case 19 continue to be more 
peaked and narrow. The NO distribution in both cases (Fig. 6-14) con- 


menms ClOSely to che TFMF distribution except for the air zone elements 
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wnere there is no NO. This indicates nearly homogeneous mixing of NO 
mene tne combustion zone elements and little mixing with the air zone 


elements segregated by the KIVA solution. 
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CHAP IER SEVEN 


SUMMARY, CONCLUSIONS AND RECOMMENDATIONS 


This thesis proposes and evaluates a Two-Step Approach for calcu- 
lating slow and complex chemistry in inhomogeneous turbulent reactive 
flows, specifically in a direct-~injection diesel engine. The first step 
is to complete a Multi-Dimensional Model (MDM) solution of the reactive 
flow. This is accomplisned for a direct-injection diesel using the KIVA 
computer code. The output of this solution is used to define zones 
Within the flow, and to calculate zone processes and mass flow between 
zones. A Stochastic Mixing Model (SMM) computer code was developed to 
recalculate turbulent mixing and chemistry using the MDM information. 
The SMM generates distributions of turbulent properties within eacn zone 
which are necessary to calculate the rsleWweemisstonssecnemisury. This 
approacn is evaluated for consistency by analyzing zone property distri- 
butions, the effect of changing zone boundaries, the effect of increas- 
ing the number of zones, the sensitivity to various physical and model 
Bearameters, the ability of the SMM to reproduce MDM results and the 
Variance of SMM results over multiple stochastic runs. It is evaluated 
for accuracy by comparison to experimental data and trends. 

Weaknesses and deficiencies noted in the direct-injection diesel 
application of this approach were: 


immttemcoarse grid Spacing used in the KIVA runs for compula- 
tional economy caused excess numerical diffusion especially 


during expansion. This damped-out large scale turbulence and 
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convection very early in the expansion stroke, limiting mix- 


ing and combustion in both the KIVA and SMM results. 


2. The global combustion chemistry used in the KIVA runs does 
not consider pre-ignition chemistry. Initial combustion in 


all the KIVA runs was too fast. 


3. Because of these known deficiencies in KIVA, the SMM was 
not constrained to follow the KIVA heat release. Instead an 
ignition delay model was included in the SMM and elements 
were burned as they mixed when they satisfied the combustion 
criteria. Consequently the balance of burned and unburned 
fuel in the zones as specified by KIVA and as calculated in 
the SMM were not the same. This made it difficult for the 
SMM flow algorithm to satisfy burned and unburned fuel flow 


Semecmaimmcs, Darticularly after +20° ATDC. 


4. The SMM mixing algorithm broke down after +20° ATDC when 
the KIVA large-scale flow was damped-out and gradients became 
stable. 


5. The axisymetric grid used in KIVA for computational econo- 
my probabdly reduced the effect of increased swirl. Initial 
conditions were also somewhat simplistic and may have effect- 


ed results, particularly in the early injection caSe. 


6. The soot model used in the SMM was developed for toluene 
and requires calibration for application to diesel fuel. The 


accuracy of a diesel fuel application is questionable. 


Consistent and encouraging results noted in the direct-injection 
diesel application of the stochastic mixing model approach were: 


1. The standard deviation of pressure, soot and NO decreases 
with more elements and the mean value approaches an asympto- 
tic limit with more elements. Total fuel mass fraction dis- 


tributions also converge with more elements. 
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2. Pressure, soot and NO histories converge as the number of 
mixing zones is increased. Total fuel mass fraction distri- 
butions also converge. Nine or ten zones were required for 


convergence in our application. 


3. SMM and KIVA pressure traces were consistent with differ- 
ent engine operating conditions for a fixed mixing intensity 


scaling factor. 


4, SMM and experimental NO histories showed good agreement, 
both in magnitude and in trend, as the engine operating con- 
ditions were changed. The one exception was for the early 
injection case where the SMM predicted only half the increase 


in NO specified by the experimental data. 


This Two-Step Approach iS an excellent example of the unique poten- 
tial for the application of multi-dimensional models. The KIVA code 
provided detailed information about the diesel reactive flow that could 
not be obtained by any other means. As MDM codes are exercised and 
reworked their limitations and deficiencies will be resolved. 

Recommendations for future effort using KIVA and the Stochastic 
Mixing Model approach are: 


1. Individual KIVA submodels should be validated using exper- 


imental data. 


3. A 3-D KIVA computation with more realistic initial condi- 
tions should be made for comparison to simpler 2-D computa- 


Cions. 


3. Pre-ignition chemistry needs to be included in the KIVA 
solution. Once the MDM combustion calculation is improved, 


combustion in the SMM should be constrained to agree. 





-82—- 


4, A more sophisticated understanding is needed relating tne 
number of mixing zones and efficiency of the mixing model to 
EUr@ULene Parameters in the KIVA solution. Use of a k-e 
turbulence model vice the subgrid scale model in the KIVA 
Sodewwourd facilitate calculation of a realistic turbulent 


length scale for this purpose. 


The Two-Step Approach shows great promise for calculating slow and 
complex chemistry in turbulent reactive flows. Our direct-injection 
diesel application of this approach was remarkably successful in pre- 
dicting NO histories. Limitations in our application were due primarily 
to KIVA model limitations and inadequacies and to externally-imposed 
economies on KIVA computer time. The Stochastic Mixing Model appears to 
be internally consistent and reasonably economical in terms of run time. 
It should be stressed that the submodels included in the SMM are not 
tended to be unique, but only to represent one example of how this 


approach might be applied. 
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Figure 2-1 General flow diagram for the revised KIVA program. it5] 
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Figure 2-2 KIVA Computational Grid 
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Figure 2-3 KIVA Pressure Trace VS. Test Results 
(Run 17) 
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Figure 2-4 KIVA Pressure Trace VS. Test Results 
(Run 19) 
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2-5 KIVA Pressure Traces (All Runs) 
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Figure 2-6 KIVA Heat Release Rate (Ron 17) 
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Figure 2-7 KIVA Fuel Mass History (Run 17) 
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Figure 2-8 KIVA Injection Particle Plot 
(Run 17) 
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Figure 2-15 KIVA Total Fuel Mass Fraction Contours (Run 17) 
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Figure 2-21 KIVA Zone Mass 
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Figure 2-22 KIVA Zone Mass (cont) 
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Figure’ 2-23 KIVA Zone Liquid Fuel Mass 
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Figure 2-24 KIVA Zone Liquid Fuel Mass (cont) 
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Figure 2-25 KIVA Zone Fuel Vapor Mass 
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Figure 2-26 KIVA Zone Fuel Vapor Mass (cont) 
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Figure 2-28 KIVA Zone Burned Fuel Mass (cont) 





2 





TACOM DIESEL ALN PONI7-33 TACOM DIESEL RUN MDNI7-33 
CAINJ°°15.8 SVIRL- 2.48 A EGR: 6.8 CAIN] **313.8 SVIRL- 2.46 A EGR G.@ 
2008 2500 
1808 
1680 2008 
1420 
S S 
S 1208 = 1508 
S 1008 : 
Li 808 Wi 1820 
~ ~ 
6d 
428 5a3 
2a 
g g 
-26 -18 @ 16 2 3 4 3S 8 2 @& @ -23 -10 8 18 2 33 40 SO 8 2 8 
CRANK ANGLE CRANK ANGLE 
TACOM OTESEL ALN PONI7-33 TACOM DFESEL ALN PONI7-33 
CAINT<*15.0 SVIRL- 2.46 4 EGR- 6.8 CAIN] --I5.0 SVIRL- 2.46 4 EGR 6.8 
3000 3500 
2590 3000 
2520 
~ 2000 Bs 
¥ ¥ 
2 159g < 
- * 1500 
_ = 
“ 1866 N 
100 
503 Soa 
g g 
26-19 8 18 23 30 4 @ B 0 & BW -29 416 23 3 4 3S 8 2 8 
CRANK ANGLE “ve CRANK ANGLE 
TACOM OTESEL ALN PONI7-33 TACOM OTESEL RUN MOMI7-33 
CAIAT*-15.8 SWIRL 2.48 4 EGR 6.8 CAINS -- $5.8 MIR- 2.468 AER 6.8 
3520 3000 
3000 2509 
2500 
p 2000 
= = 
~*~ COAG -«- 
n © 15a 
5 1500 5 
N 1030 
1980 
Soa 5a 
g , g 
236-10 6 1 ww 34 SW OH ew -26 -16 @ 16 2 30 4 3S OB 7 8 
CRANK ANGLE CRANK ANGLE 


Figure 2-29 KIVA Zone Temperature 
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Figure 2-30 KIVA Zone Temperature (cont) 
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Figure 2-31 KIVA Zone Heat Release 
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Figure 2-32 KIVA Zone Heat Release (cont) 
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Figure 2-33 KIVA Zone Wall Heat Transfer 
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Figure 2-34 KIVA Zone 
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Figure 2-35 KIVA Zone Mass of Fuel Burned 
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Figure 2-36 KIVA Zone Mass of Fuel Burned (cont) 
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Figure 2-37 KIVA Zone Mass of Fuel Evaporated 
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Figure 2-38 KIVA Zone Mass of Fuel Evaporated (cont) 





-~135- 


TACON OTESEL ALN MDAMI7°33 
CAINS--15.8 SVIRL* 2.46 4 EGR: 9.8 


Ptt-3 


Lie 


1.6 


8.8 


ZNOCL) (g) 


8.8 
8.4 
8.2 


8.2E-3 


-26 -18 8B WwW HW HW HH BH BH BH B 


CRANK ANGLE 
TACOM DIESEL RUN MOHI7-33 
CAINI*-15.8 SUIRL+ 2.48 8 EGR: 0.8 
1.6E-3 
1.4 
1.2 
1.8 
8.8 


ZNO(3) (g) 


8.6 
0.4 


8.2 





8.BE-3 
“20 


“18 8B 


6wowewwHwH BW HH BH Bw 


CRANK ANGLE 


TACOM DIESEL ALN MOI7-33 

CAINT*- 15.8 SVIRL* 2.48 # EGR 6.8 
8.8€-3 

8.7 

8.6 

8.9 


0.4 


ZNO(S) (g) 


8.3 
8.2 
8.1 


8.GE-3 


-26 -18 8B 


CRANK ANGLE 


69 www HH BH 1 BH Bw 


TACOMN OJESEL RUN MOMI7-33 
CAINS**135.8 SUIRL+ 2.48 4 EGR: 0.9 


1.2€-3 


1.8 


8.8 


8.6 


ZNO(2) (g) 


0.4 


4 





8.BE-3 
-20 


“18 8B 


6 ww HM & 17 8 B® 


CRANK ANGLE 


TACOM DOTESEL RUN *0MI7-33 
CAINJ**15.8 WIR 2.46 & EGR: 6.8 


1.G€-3 
8.9 
8.8 
0.7 
8.6 
8.5 
0.4 
8.3 
8.2 
8.1 


8.GE-3 
-26 


ZNO(4) (g) 


“16 6 6 6 3 464 BW BH 1 B&B B 


CRANK ANGLE 


TACOMN OTESEL. RUN MOMI7-33 
CAINJ*-13.8 DIRLe 2.46 #8 EGR: 6.9 


8.7E-3 


8.6 


8.5 


0.4 


ZNO(6) (g) 


8.3 


8.2 


8.1 





8.GE-3 
-20 


“18 @ 


169 2 3 4 BW B&B 1 8B B® 


CRANK ANGLE 


Figure 2-39 KIVA Zone Mass of Nitric Oxide 
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Figure 2-40 KIVA Zone Mass of Nitric Oxide (cont) 
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Figure 2-41 KIVA Zone Volume 
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Figure 2-42 KIVA Zone Volume (cont) 
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Figure 2-43 KIVA Zone Fuel Mass Fraction 
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Figure 2-44 KIVA Zone Total Fuel Mass Fraction (cont) 
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Figure 2-45 KIVA Zone Mixing Intensity 
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Figure 2-46 KIVA Zone Mixing Intensity (cont) 
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Figure 5-8 Comparison of SMY¥{ versus KIVA Zone Fuel-Mass Burned 
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Figure 5-10 Comparison of SMM versus KIVA Total Fuel Mass Fraction 
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Figure 5-11 Comparison of SMM versus KIVA Total Fuel Mass Fraction (cont) 
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Figure 6-6 Comparison of Stochastic Mixing Model Results 
for Different Operating Conditions 
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Figure 6-7 Fuel Mass Fraction Distribution by Mixing Zone 
(Test Case 17 and 19) 
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Figure 6-8 Mass-Weighted NO Distribution by Mixing Zone 
(Test Case 17 and 19) 
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Figure 6-9 Fuel Mass Fraction Distribution by Mixing Zone 
(Test Case 17 and 19) 
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Figure 6-10 Mass-Weighted NO Distribution by Mixing Zone 
(Test Case 17 and 19) 
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Figure 6-11 Fuel Mass Fraction Distribution by Mixing Zone 
(Test Case 17 and 19) 
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Figure 6-12 Mass-Weighted NO Distribution by Mixing Zone 
(Test Case 17 and 19) 
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Figure 6-13 Fuel Mass Fraction Distribution by Mixing Zone 
(Test Case 17 and 19) 
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Figure 6-14 Mass-Weighted NO Distribution by Mixing Zone 
(iestmcase Jf and 19) 
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A.3 Test Case Number 19 


TACOM DIESEL RUN MDM19-40 


NX ie 
NY 1 
NZ 18 
LWALL | 
NCHOP 5 
LPR 3 
JSECTR 1 


NCFILM 9999 
NCTAP8 9999 
NCLAST 9999 
CAFILM 
CAFIN 8 
ANGMOM 

Cy I 

DY 

PGSSW 
SAMPL 

Dil 

DTMAX 
TLIMD 
TWEIN 9 .99E+9 
FCHEM O25 
STROKE - 11.43 
SQUISH 0.092 
RPM 0.998E+3 
ATDC = Oro 
CONROD 2200 
OFF SET 
SWIRL 
iaoeCT 
THNO ZL 
Soor 
err L 
AO 

BO 
ANC 4 
ARTVIS 
UVFREE 
ADIA 
CHARLF 
ANUO 
VISRAT-.66666667 
RGAS 8 .3143E+7 
PCUT 800.0 
Peo te 1200.0 
EPSCHM ORO 2 
OMGCHM les 
TKEI O202 


e 


Ore O70 oO CO OC GaSe 


© 
© 
Ov 


= 


ONO" RF O - OVNN O Pl 


Ooodeocoo0oro0oo0ovrw £& 


e 


= 
= 


WI 





ATKE 
DIKE 
AIRMU 1 
PERM U 2 
AIRLA1 
AIRLA2 
AIRDIF 
EXPDIF 
TWALL 
RPR 
RSC 
XIGNIT 
T1IGN 
T2IGN 
CA1IGN 
CA2IGN 
IIGNL1 
IIGNR1 
JIGNF 1 
JIGND 1 
KIGNB1 
KIGNT 1 
IIGNL2 
IIGNR2 
JIGNF 2 
JIGND2 
KIGNB2 
KIGNT 2 
KWIKEQ 
KOLIDE 
EVAPP 
TIINJ 
T2INJ 
CA1IINJ 
CA2INI 
TSPMAS 
TNPARC 
RHOP 
mPT 
VELINJ 
CONE 
DCONE 
TILT 
SMR 
SUR TEN 
BERIT 
TURB 
NPO 
NUNIF 
1 


ate 


2 
3 
4 


! 


0.05 

ir 0 

eu e=5 
Os 0 
252.0 
200.0 
2e541E-6 

0.6 
400.0 

1.1 
a. 

0.0 
ee os O2 
oon S02 
gt. 0 

ails O) 


Oo 


at OO OO Oo OS) SO OS Ser eS 


350.0 
1.66E+4 
157 20 
12.5 

OO 
9.5E-4 
25.04 
659 .0 

ee 
31 


0.4700 
0.4393 
0.4087 
0.3780 





BE 1 


CF2 
CB2 
AM2 
BM2 


e 


HAAN ENOWKHDE EFWNHNOWONFH WAH ENOWARM ENO 


e 


e 


— 
WN 


Fown WI 
- 


UW 


* 


e 


WOWWOWWWWWWO DOAINU EWD A A A @ @ a = a ao a a | 
UO UO) Ole es Coe POD (ees 
e e es e e e e 6 es ® * * 


— 
WN 


? 


N 


O30 
De liosn-4 
ie UE- 3 
Gis 055E—-0 
1.2499E-5 
OF0 


° 


OOOO 0 0 
Foooe;9c]o 


2.Q0000E10 
Oe 
40 619 
0 0 
C250 
0.000 
0.000 
0.000 


MW 1 
MWe 
MW3 
MW4 
MW5 
MW6 
MW7 
MW8 
Mw9 
MW10 
MW1 1 
MW1 2 


EF 1 
EB 
0 
0 


1.500 
0.000 
0.000 
0.000 


lesson 4 BF 2 
feo OOO 2 EBZ 


0 1 
0 0 


2 
0 


-186- 


1.5780E+4 
O20 
0 0 
432 6374 
0.000 
0.000 
0.000 
0.000 
6.7627E+4 
0.0 


nite 
ene 
eS 
HTF4 
HTE5 
HTF6 
Hoes 
HTF8 
HTF9 
Hora 
Pel ees 
Horde 


2 
ZB1 
0 
0 
0.000 
0.000 
0.000 
0.000 
Ze 2 
ZB2 


0 


0 


0 
0 
0 0 
0 
0 


© 
OO00 


BP ncOo 
21.456 


0. 
Or 
0.00 


0.000 


oe 
0. 


0 
0 
0.000 


0.000 


0 
0 


0 
0 
0.000 


0.000 


Oo 


OO O 


0.000 





AE2 0.000 0.500 
0.000 0.000 
BE2 0.000 0.000 
1.000 0.000 
oF 3 2.6484E10 EF3 
CB3 1.6000E+9 EB3 
AM3 0 2 1 
BM3 0 0 0 
AE3 0.000 1.00 
0.000 0.000 
BE 3 0.000 0.000 
0.000 0.000 
CFr4 201230814 BF 4 
cBy Ome Eh 
AMY 0 0 1 
BM4 0 0 0 
AEY 0.000 0.000 
0.000 1.000 
BEY 0.000 0.000 
0.000 0.000 
NRE 6 
AS1 0.990207 3851 
0.0111668 
AN 1 0 0 0 
BN 1 0 0 0 
ese 0.431370 BS2 
0.0158715 
AN2 “0 1 0 
BN 2 0 0 0 
53 (0.794709 8S3 
0.0269699 
AN3 0 0 1 
BN 3 0 0 0 
ase -0.652939 38S4 
ES4 -0.0142865 
ANY 0 1 0 
BN 4 0 0) 0 
AS5 1,i56ee2 BS5 
0.0463471 
AN5 0 1 0 
BN5 0 0 0 
RS6 0.980875 BS6 
mo) «6(-0.0414570 
AN6 0 1 0 
N6 0 0 0. 


1.000 
0.000 
0.000 
0.000 
5.9418E+ 
1.967 85+ 
0 
0 
- 500 
. 000 
000 
000 
5. 7020E+ 
0.0 
0 
0 
- 500 
000 
000 
000 


QoO@ 0200 0 © 


Oo - Oro. 2 © 


=51 ome 
0 0 
0 0 
-597000 


4.4 Test Case Number 20 


TACOM DIESEL RUN MDM20-4 


NX 


ee 


-187- 


0.000 
0.000 
0.000 
1.000 
Ee 23 
4 ZB3 

0 

0 
0.000 
0.000 
0.000 
1.000 
4 ZF 4 
ZB4 

0 

2 
0.000 
0.000 
0.000 
1.000 


CS1 


0.000 


0.000 


3.930330 


1 0 
0 0 
O.05e1 55 


0.000 


0.000 


0.000 


0.000 


0.000 


1.000 


DSi 


0.000 
QO. 000 
0 0 
0 0 
0.000 
0.000 
2 0 
0 0 
0.000 
‘oPaeleie) 
-0. 343428 
Q 0 
0 0 
-0. 340016 
0 0 
0 0 
-0.443814 
0 0 
Q 0 
0. 63889 
0 0 
2 0 
- 07865320 
0 0 
4 0 
0.574260 
0 2 
0 0 


0.000 


0.000 


0.000 


1.000 


MN 


0.000 


0.000 


ES 1 


O 





NY 

NZ 1 
LWALL 
NCHOP 

LPR 

JSECTR 1 
NCFILM 9999 
NCTAP8 9999 
NCLAST 9999 


NM W—- CO- 


CAFILM 10.0 
CAFIN 80.0 
ANGMOM iz. 0 
CYL Lge 

DY 0.0 

PG SSW ee 
SAMPL 0.0 
DTI Ve0E-5 
DTMAX ek} 
TLIMD ae 
TWFIN eo Gt 9 
FC HEM Oeeo 
STROKE 11.43 
SQUISH 0.092 
RPM 0.999E+ 3 
ATDC —o90r0 
CONROD 22,00 
ORE SET 0.0 
SWIRL ~ 2.46 
THSECT 0.5 
THNO ZL re 
SSSF 2.5 
meMPI 459.0 

AQ 0.0 

BO lee 
ANC 4 O05 
ARTVIS 1.0 
UVEREE 1.0 
ADIA ono 
CHARLF 2.0 
ANU O 0.0 
VISRAT-.66666667 
RGAS Ses 1clsh+ 7 
TUT 800.0 
TeUTE ~— 1200.0 
EPSC HM 0.02 
OMGCHM 1.0 
TKEI CeO2 
ATKE 6205 
DTKE Lee 
BRMU) 61 457E-5 
ATRMU2S 110.0 
peta 252.0 
MERLAC 200.0 


-188- 





AIRDIF 
eArDIF 
TWALL 
RPR 
RSC 
XIGNIT 
1 LGN 
T2IGN 
CA1IGN 
CA2IGN 
IIGNL1 
IIGNR1 
JIGNF 1 
JIGND 1 
KIGNB1 
KIGNT 1 
IIGNL2 
eEGNR 2 
JUGNE 2 
JIGND2 
KIGNB2 
KIGNT2 
KWIKEQ 
KOLIDE 
EVAPP 
TIINJ 
T2INJ 


CA1INJ © 


CA2INJ 
feoriAs 
TN PARC 
RHOP 
ier 1 
VELINJ 
CONE 
DCONE 
TILT 
SMR 
SUR TEN 
TCRIT 
TURB 
NPO 
NUNIF 


Owo@anyn aU FWP 
ah amb ah at ah ot = = oo 


— 


J 


—y 


J 
Oo00 © 


OOS ae OS OO CO OC OC CO OC ere 2 6 


0.05597 
1000.0 
0.752 
B50) 0 


—----=-=-O0000 


1 
1 


.66E+4 
57.0 
r2.5 


9.5E-4 
25 04 


659 .0 


On-— wm OWOAN Lh O 


Ud 
0 a 
O 


0.4700 
21393 
0.4087 
0537 00 
0.3473 
On 3167 
0.2860 
0.2553 
Oe 2247 
0.1940 






BE 1 


CF2 
CB2 
AM2 
BM2 
ABZ 


BE 


Crs 
CB3 


Orlioss 


ae 
1 2.2 Olea7 
1 2.4 0.1020 
1x6 0.0713 
eons 0.0407 
1 3.175 0.0 
ee 0.0210 
Bere 0.0740 
4 3.8 0.1660 
5 4.05 0.3500 
6 4.22 0.5500 
7 lage 0.7500 
8 4.401 0.9500 
9 4.445 1.2700 
9 4.6 erent 
9 4.8 ie27 
9 5.0 (ee 
9 5.2 eer 
95.4 er 
9 5.6 1.27 
9 5.715 eer 
12 
0.0 MW1 148.6  HTFI 
4.7866E-4 MW2 B2n00 HIF? 
1.6845E-3 MW3 28.0 HTF3 
2.6665E-5 MW4 W4.0 HTFY 
1.7965E-5 MW5 18.0 HTF5 
0.0 MW6 1.0 HTF6 
0.0 MWT7 2.0  HTF7 
0.0 MWS 16.0  HTF8 
0.0 MWY 14.0  HTF9 
0.0 MWIO0 17.0 HTF10 
0.0 MW11 28.0 HTF11 
0.0 MWI2 30.0 HTF12 
4 
2.0000E10 EF1 1.5780E+4 ZF1 
0.0 BI 0.0 ZBI 
roeetg)«SCtC(<iCis‘é‘i “;‘;é‘C 
fmeeouO 432 374 0 
0.250 1.500 0.000 0.000 
0.000 0.000 0.000 0.000 
0.000 0.000 0.000 0.000 
0.000 0.000 0.000 0.000 
1.5587E14 EF2 6.7627E+4 ZF2 
7.5000E12 EB2 0.0 ZB2 
[er 2 0 0 0 
“eo Oo €6UlDlC:ti‘i‘CO 
0.000 0.500 1.000 0.000 
0.000 0.000 0.000 0.000 
0.000 0.000 0.000 0.000 
1.000 0.000 0.000 1.000 
2.6484E10 EF3 5.9418E+4 ZF3 
1,6000E+9 EB3 1.9678E+4 ZB3 


>2bn 
0.0 
0.0 
more 
Ole 
51. 
0.0 
Dor 
dias 
9.289 
gor 2 
ae 


Oo 


0 
0 
0.000 


0.000 


0 
a 
0.000 


0.000 


0 


0 
0 


0 
0 
0.000 


0.000 


0 
0 
0.000 


0.000 


© 


- 000 


000 


. 000 


. 000 





AM3 ome (tt 
BM3 oo 0 O 
AE3 0.000 1.000 

0.000 0.000 
BE3 0.000 0.000 
0.000 0.000 
CF4Y 2.1230E14 EFY 
CBY 0.0 EBY 
AMY eo | 1 
BMY ol) 0 
AEY 0.000 0.000 
0.000 1.000 
BE4 0.000 0.000 
0.000 0.000 
NRE 6 
AS1 0.990207 BSI 

0.0111668 
AN1 Co 6860 
BN1 lo 0 
Ms2 «0.431310 BS2 

0.0158715 
AN2 0 1 0 
BN2 eo! 0 
AS3 0.794709 BS3 

0.0269699 
AN3 Oo)|}|6 1 
BN3 0 oO 0 
ASY -0.652939 BS 

ES4 -0.0142865 
ANY te) 0 
BNY Ome 860 
AS5 1.158882 BS5 

0.0463471 
ANS ie. 0 
BN5 oo 0 
AS6 0.980875 BS6 

ES6 -0.0414570 
AN6 al Oo 
BN6 Son nO 


=19i1- 


QO 0 0 
0 0 0 
0.500 0.000 
0.000 0.000 
0.000 0.000 
0.000 1.000 
5.7020E+4 ZFY 
0.0 ZBY 
0 0 0 
0 0 2 
0.500 0.000 
0.000 0.000 
0.000 0.000 
0.000 1.000 
=51.7910 GS1 
0 0 0 
0 0 2] 
5970551 aeCoe 
0 0 0 
0 0 0 
WilseeZooo. (CS3 
0 0 0 
0 0 0 
-9.8232 CS4H 
0 0 0 
0 0 0 
=sTO.o4fe Gsd 
0 2 0 
0 0 0 
68.4453 CS6 
0 0 0 
Z 0 0 
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APPENDIX B 


SMM FORTRAN CODE 


Cee eee SS HSKKKSES SHEESH ESSEK SKS ERERARERR ERE EDRE 
c 
C SMM COMMON BLOCKS (SMMCOM. FOR) 
C 
PARAMETER (NZONES=9 ,MAXELE=6000 ,NFLOW=9 , NA=10) 
DIMENSION DTMIX(NA) ,NELS(NA),ZTIME(NA),TTBF(NA), 
1 TBF(NA),NNEVAP(NA), TMEVAP(NA) ,NELMIX(NA) 
REAL LLIMT 
LOGICAL SOOTON(NA) 
INTEGER IX,I1Y 
CHARACTER#12 FUEL,ID 
CHARACTER*30 NAME 
COMMON / FULAR / CATOM,DEL,PSI,PHICON 
COMMON /FULAR2/ ZH,ID,FUEL,HFG,TSAT,CPF, 
1 HEVAP,WIFUEL,SVFUEL,HFUEL,CTOF 
COMMON / ELEM / ELMV,NELS,NELAIR,NELTOT 
COMMON / CMBLIM / PHILOW,PHIHI,LLIMT,ULIMT 
COMMON / INTGRS/ IX,MAXITS, ITMAXV,NLINES,NAV,NAVP1,NCYC,NOLD 
COMMON /BASIC/ TIME, TIMMDM,CRANK,P,TFI,RHOL, TWALL, 
1 CBETA,CAD,CRANKD, DTKIN, FERMAX,NPRINT, ERMAX, VERMAX 
COMMON /DELT/ DT,DOTMIX,OTPR,ZTIME, TIMEPR 
COMMON /SSOOT/ SOOTON,SOTSIZ,SOOTC, TSOOT 
- COMMON /MDM1/ NAME,CA1INJ,CRKMAX,RPM,PSTART,EGR, SWIRL 
COMMON /OUT/ TBF, TMEVAP, TTBF 
COMMON /OUT2/ NNEVAP,DELTAP,NELMIX 
Ceeeee eee eek Rk RHKTREKKKKKSEAEKEKEESEKEKSSAEERSEKEEEREREEEEEEREEESE 
Ceeeeee eee KKSHHHKHTKEKSEKESKRESSE SEEKERS REKAEREEEEEKEEEEEEEEE 
C 
C SMZ COMMON BLOCKS (SMZCOM. FOR) 
c 
C NOTE: ALWAYS APPEARS AFTER SMMCOM.FOR 
Cc 
DIMENSION FM(NFLOW) , FMV(NFLOW) , FMBF (NFLOW) 
DIMENSION ZMEVAP(NA) ,ZVOL(NA) ,ZMVAP(NA), ZMFBRN(NA) , 
1 ZQWALL(NA),ZBETA(NA) ,ZFMF(NA) ,ZMASSL(NA),ZTEMP(NA) ,ZNO(NA) 
DIMENSION DFM(NFLOW) ,OFMV(NFLOW) ,OFMBF(NFLOW) 
DIMENSION NP(NFLOW) ,NN(NFLOW) 
COMMON /FFLOW/ FM,FMV,FMBF ,FMLO 
COMMON /ZFLOW/ ZMEVAP, ZVOL, ZQWALL, ZBETA, ZFMF, ZNO, 
1 ZMASSL, ZMVAP,, ZMFBRN, ZTEMP 
COMMON /DFLOW/ DFM, DFMV,OFMBF 
COMMON /ELEFLW/ NP,NN 
COMMON /SMZBAS/ PMDM 
COMMON /ZONES/ ZMA, ZMVA, ZMBFA 
CeeeeeKKKKKSHREKCSASHEAAEKEKEKSEKEEEATSHESEEKERSESSE REESE EEE EEE EEE SE 
Cee S&HSKKSKHSSSSSARSEKKSSHRSEKEKESSSSEREKSESSKE AREER EKER EERE 
c 
c SUBROUTINE BTEMP 
c 
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oe 


PURPOSE 
GIVEN P, H, ANO FR OF BURNED PRODUCTS, CALCULATES T 


USAGE 
CALL BTEMP (TGUESS,FR,ENTHLP,T,N) 


DESCRIPTION OF PARAMETERS (ALSO SEE SMM) 
PARAMETER INPUT OUTPUT DESCRIPTION 








P YES NO PRESSURE (ATM) 

TGUESS YES NO INITIAL GUESS FOR TEMPERATURE (K) 

FR YES NO FUEL FRACTION OF BURNED PRODUCTS 

ENTHLP YES NO ENTHALPY (CAL/G) 

T NO YES CALCULATED TEMPERATURE (K) 

ERMAX YES NO RELATIVE ERROR TOLERANCE (SEE 
—_  — SUBROUTINES UTEMP AND BTEMP) 

MAXITS YES NO MAXIMUM NUMBER OF ITERATIONS (SEE 
—_—_ — SUBROUTINES UTEMP AND BTEMP) 

N YES NO ELEMENT PROPERTY ARRAY 


IDENTIFICATION NUMBER 


SUBROUTINE AND FUNCTION SUBPROGRAMS REQUIRED 
BTHRMO 


SUBROUTINE BTEMP (TGUESS,FR, ENTHLP,T,N) 
INCLUDE 'SMMCOM. FOR’ 

DIMENSION ELEMT(MAXELE, 6) 

COMMON /ELEMT1/ ELEMT 

T=TGUESS 


~ DO 10 I=1,MAXITS 


CALL BTHRMO (P,T,FR,AHG,CSUBP,WT) 
TTOLD=T 

T=T+(ENTHLP—AHG) /(CSUBP) 
IF(ABS((T-TTOLD)/T).LE.ERMAX)GOTO 22 
CONTINUE 

CALL OUTPUT(6) 

ELEMT(N,5)=CSUBP 

ELEMT(N,6)=WT 

RETURN 

END 


Ceeeee SSeS SSS SH SSSHESHESEKSESEHEEHEKEKEEEKEKEESESEKEKEKEEK EKER EEKE REESE 


CEH SSESSS SSS EEKSKHKEKEKEKEKKEKEKESCHHEHHEEEKEEEEEEEEEEEEEEEEES 


anqngqagnganannnandandkandan 


SUBROUTINE BTHRMO 


PURPOSE 
CALCULATES THERMODYNAMIC PROPERTIES OF BURNED PRODUCTS 


DESCRIPTION OF PARAMETERS (ALSO SEE SMM) 
PARAMETER INPUT OUTPUT DESCRIPTION 


p YES NO PRESSURE (ATM) 

i YES NO TEMPERATURE (K) 

FR YES NO FUEL FRACTION OF BURNED PRODUCTS 

4 NO YES ENTHALPY OF BURNED PRODUCTS (CAL/G) 
cP NO YES HEAT CAPACITY AT CONSTANT PRESSURE 
oa ee — OF BURNED PRODUCTS (CAL/G kK) 

WT NO YES MOLECULAR WEIGHT OF BURNED 
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— — — PRODUCTS (G/MOLE) 


SUBROUTINE BTHRMO (P,T,FR,H,CP,WT) 
COMMON/TABLE3/BHTBL( 2688) , BCTBL(2688) , BWTBL(2688) , BHF TBL(2688) 
COMMON/FULAR/CATOM, DEL,PSI,PHICON 

DIMENSION AP(7),AT(16),APHI (24) 

PARAMETER (RBAR=1 .9869,PSCALE=. 0242173) 

DATA AP /1.,5.,10.,20.,30. ,60.,100./ 

DATA AT /1700. , 1800. ,1900. ,2000. ,2100. ,2200. ,2300. 2400. ,2500., 
& 2600.,2700. ,2800.,2900., 3000. ,3200. ,3500./ 

DATA APHI/@.0,0.3,0.4,0.5,0.6,0.7,0.8,0.85,0.9,0.95,1.0,1.05,1.1, 
Soo 1. 75,2.0,2-25,2-5,2-75,5.0,5.5,4.0/ 
PHI=FR*PHICON/(1.—-FR) 

PHIA=PHI 

PA=P 

TA=T 


IF(PA.LE.1.0)PA=1. 
IF(PA.GE.100. )PA=100. 
IF (TA.GE. 3500. )TA=3500. 
IF(PHIA.LE.0@.0)PHIA=0. 
IF (PHIA.GE.4.0)PHIA=4.0 


IF(TA.GE.1700.)GO TO 5 
CALL UTHRMO (P,T,FR,1.0,H,CP,WT) 
RETURN 


I=IFIX(TA/100. )-16 

IF(TA.GE.3200. .AND.TA.LE.3500. )1=15 
IF(TA.GE.3000..AND.TA.LT.3200.)I1=14 
TAI=AT(1) 

TA2=AT(I+1) 


J=6 

IF(PA.GE.6@.)GO TO 10 
J=5 

IF(PA.GE.30@.)GO TO 12 
J=IFIX(PA/10.)+2 
IF(PA.GE.10.)GO TO 10 
J=IFIX(PA/5.)+1 
PA1=AP(J) 

PA2=AP (J+1) 


K=23 

IF(PHIA.GE.3.5)GOTO 20 
K=IFIX((PHIA-3.0)/.5)+22 
IF(PHIA.GE.3.@.AND.PHIA.LT.4.0)GOTO 20 
K=IFIX((PHIA-1.5)/.25)+16 
IF(PHIA.GE.1.5.AND.PHIA.LE.3.0)GOTO 20 
K=IFIX((PHIA-1.2)/.15)+14 
IF(PHIA.GE.1.2.AND.PHIA.LE.1.5)GOTO 20 
K=13 
IF(PHIA.GE.1.1.AND.PHIA.LE.1.2)GOTO 20 
K=IFIX((PHIA-.9)/.05)+9 
IF(PHIA.GE.0.9.AND.PHIA.LE.1.1)GOTO 20 
K=IFIX((PHIA-.8)/.5)+7 
IF(PHIA.GE.0.8.AND.PHIA.LE.@.9)GOTO 20 
Km IFIX((PHIA~.6)/.1)+5 
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IF(PHIA.GE.@.6.AND.PHIA.LE.@.8)GOTO 20 
KeIFIX((PHIA-.3)/.1)+2 
IF(PHIA.GE.@.3.AND.PHIA.LE.@.6)GOTO 20 
K=1 

2@ PHI1=APHI (K) 
PHI2=APHI (K+1 ) 


TUi=J*384+Ke 16+1+1 

1U2=J ©384+(K—-1)*16+1+1 
[U3=J #384+(K-1) #1641 

IU4=J *#384+Ke1 6+] 

IU5=(J-1) #384+K*16+1+1 
IU6=(J—1 ) #3844+(K-1) © 16+1+1 
IU7=(J—1) ©384+(K-1) #164] 
1U8=(J-1) #384+K*16+1 


R=(—PHI1+PHI+PHI-PHI2)/(PHI2-PHI1) 
S=(—TA1+T+T-TA2) /(TA2-TA1 ) 
V=(—PA1+P+P—PA2)/(PA2—PA1 ) 


Hi=(1.+R)*(1.4+S)*(1.4V) 
H2=(1.-R)#(1.4S)#(1.4V) 
H3=(1.-R)*(1.—-S)#(1.4V) 
H4=(1.+R)*(1.-S)*#(1.4+V) 
HS=(1.4+R)*(1.4S)*(1.-V) 
H6=(1.-R)*(1.4S)*(1.-V) 
H7=(1.-R)#(1.-S)*(1.-V) 
H8=(1.4+R)*(1.-S)*(1.-V) 


- H m.125*(H1*BHTBL(IU1)+H2*BHTBL(IU2)+ 
&H3*BHTBL(IU3)+H4*BHTBL(1U4)+ 
&HS*BHTBL(IUS)+H6*BHTBL(1U6)+ 
&H7*BHTBL(1U7)+H8*BHTBL(IU8)) 
CP=.125*(H1*BCTBL(IU1)+H2*BCTBL(IU2)+ 
&H3 *BCTBL(1U3)+H4*BCTBL(1U4)+ 

&H5 *BCTBL(1US)+H6*BCTBL(1U6)+ 

&H7 *BCTBL(1U7)+H8*8CTBL(IU8) ) 
WT=.125*(H1sBWIBL(IU1)+H2*BWTBL(IU2)+ 
&H3sBWTBL(1U3)+H4*BWIBL(1U4)+ 

&H5 *BWTBL(IU5)+H6*BWTBL(IU6)+ 

&H7 *BWTBL(1U7)+H8*BWTBL(IU8)) 


RETURN 
END 
CeeeeSe SSS SSS SSS SSTSSSHEHSSSSHSKSKSSH SESS ESKER TSK SESE SEE SESE 


CeseeeeKeKHSSSHSHSSSSSSESSSSKSSKHESKSSKSESSSTHSSSE SSSR STS SESS REESE 


c 

C SUBROUTINE CMBUST(NZ,N,N2) 

C 

C PURPOSE 

TO BURN ELEMENTS WHICH MEET COMBUSTION CRITERIA AND UPDATE 
BURNED ELEMENT PROPERTIES. 


VARIABLES (SEE SMM) 


N2 USED WHEN CALLED BY MIXING TO INDICATE BURNING FOR TWO C 
LEMENTS 


N ELEMENT PROPERTY ARRAY ID NUMBER 


qeaomMmaoadandg 


7 





-200~ 


SUBROUTINE CMBUST(NZ,N,N2) 

INCLUDE *SMMCOM., FOR’ 

INCLUDE *SMZCOM. FOR’ 

DIMENSION NUM(NA,MAXELE) , TFMF(MAXELE) 
DIMENSION ELEMT(MAXELE, 6) 

DIMENSION PREP(MAXELE) 

COMMON /ELEMT1/ ELEMT 

COMMON /ELEMTS/ PREP 

COMMON /ELEMT6/ NUM, TFMF 
IF(PREP(N).LT.1.)GO TO 1020 
IF((TFMF(N).LT.LLIMT).OR. (TFMF(N).GT.ULIMT)) GO TO 100 
IF(ELEMT(N,3).GE.1.)GO TO 100 


BGFR=ELEMT(N,3) 
ELEMT(N,3)=1. 
ELEMT(N, 1)=TFMF(N) 
CALL BTEMP(2100.,TFMF(N), ELEMT(N,4),ELEMT(N, 2),N) 
IF(N2.GT.®)THEN 
TBF (NZ)=TBF(NZ)+2. *ELMM#(1.—BGFR) 
ELSE 
TBF (NZ)=TBF(NZ)+ELMM*(1.—-BGFR) 
END IF 
c 
108 RETURN 
END 
Ceeeee ee KKK SKHKAERHAEERRAESREKAREREE RARER EERE EERE . 
Cee EEREEEEEEE 
Cc 
SUBROUTINE DISTRIB 


PURPOSE 
CALCULATES DISTRIBUTION OF NUMBER OF ELEMENTS, TEMPERATURE, SOOT AND 
NO AS A FUNCTION OF TFMF. READS DISTRIBUTIONS FROM PREVIOUS RUNS 
AND CALCULATES CUMMULATIVE DISTRIBTION. TFMF RANGE @.—.3 IS DIVIDED 
INTO 30 INCREMENTS. 


C 
C 
C 
C 
C 
C 
e 
C 
C VARIABLES AND ARRAYS (ALSO SEE SMM) 
6 
C ND — DISTRIBUTION ID NUMBER 
C NOLD — NUMBER OF RUNS INCLUDED IN OLD CUMMULATIVE DISTRIBUTION 
C NNEW — NUMBER OF RUNS IN NEW CUMMULATIVE DISTRIBUTION 
C NELET - TOTAL NUMBER OF ELEMENTS IN ALL ZONES, ACTIVE AND INACTIVE 
C NZACT — NUMBER OF ZONES WITH AT LEAST ONE ELEMENT 
C NAIR — NUMBER OF AIR ZONE ELEMENTS, ACTIVE AND INACTIVE 
C 
SUBROUTINE DISTRIB 
INCLUDE *SMMCOM. FOR’ 
INCLUDE °SMZCOM. FOR’ 
DIMENSION ELEMT(MAXELE,6) , ELMT(MAXELE, 4) 
DIMENSION NUM(NA, MAXELE) , TFMF (MAXELE) 
COMMON /ELEMT1/ ELEMT 
COMMON /ELEMT2/ ELMT 
COMMON /ELEMT6/ NUM, TFMF 
IF(NOLD.GT.@)READ(26, *)NOLD 
NNEW=NOLD+1 
WRITE(25,900)NNEW 
IF(NOLD.GT.@)READ(26, *)NZACT,NELET,NAIR 
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NZACT=2 
NELET=0 
DO 100 NZ=1,NZONES 
IF (NELS(NZ) .GT.@)NZACT=NZACT+41 
NELET=NELET+NELS (NZ) 
108 CONTINUE 
NELET=NELET+NELAIR 
NZACT=NZACT+1 
WRITE(25,*)NZACT,NELET,NELAIR 
DO 500 NZ=1,NA 
IF(NELS(NZ).LT.1.AND.NZ.NE.NA) GO TO 500 
IF(NOLD.GT.@)READ(26, *«)NZOLD,CRANKO 
922 FORMAT (1X,1I3) 
WRITE(25,901)NZ,CRANK 
921 FORMAT (1X,12,2X,F6.2) 
Cc 
C SORT ELEMENTS INTO TFMF INCREMENTS 
Cc 
DO 400 J=1,30 
FMFUsJ* . 01 
FMF L=(J-1)*.01 
FMFT=0. 
TT=Q. 
TNO=0. 
TSOOT=0. 
XN=Q. 
ec 
C CALCULATE AVERAGE TEMP,NO,SOOT IN EACH INCREMENT 
c 
i. IF(NZ.EQ.NA.AND.NELS(NA).LT.1)GO TO 312 
DO 30@ L=1,NELS(NZ) 
I=NUM(NZ,L) 
IF(TFMF(I).LT.FMFL.OR.TFMF(I).GE.FMFU)GO TO 300 
XN=XN+1. 
FMF T=FMFT+TFMF (1) 
* TT=TT+ELEMT (1,2) 
TNO=TNO+ELMT (1,1) 
TSOOT=TSOOT+ELMT(1,3) 
320 CONTINUE 
IF(XN.LE.®@.)GO TO 312 
TT=TT/XN 
TNO=TNO# 1. QE+06/XN 
IF(FMFT.LE.@.)GO TO 312 
TSOOT=TSOOT #100. /(FMFT sELMMsCTOF ) 
312 FMFA=(FMFL+FMFU) /2. 
IF(NZ.EQ.NA.AND.J.£Q.1)THEN 
XN1=XN 
XN=NELAIR-NELS(NA)+XN1 
IF(XN.GT.@.)THEN 
TT (TT *#XN1+ZTEMP (NA) *(NELAIR-NELS(NA) ) )/XN 
TN@=TNO #XN1/XN 
ELSE 
XN=O . 
END IF 
XN1=@. 
END IF 
XNSQ=XNe#2 
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C READ OLD CUMMULATIVE DISTRIBUTION AND CALCULATE NEW 
C 
IF(NOLD.GT.@)READ(26,*)FMFA,XN1,XNSQ1,STDEV,TT1, TNO1, TSOOT1 
IF(XN1.GT.@. ) THEN 
TT=(TT*XN+TT1*#NOLD*XN1)/(XN+NOLD#XN1) 
TNO=(TNO*XN+TNO1 #NOLD#XN1 )/(XN+NOLD#XN1) 
TSOOT=(TSOOT *XN+TSOOT 1 *NOLD*XN1)/(XN+NOLD*XN1) 
XN=(XN+NOLD#XN1 ) /NNEW 
XNSQ=(XNSQ+NOLD*XNSQ1) /NNEW 
END IF 
STDEV=SQRT (ABS (XNSQ—XN# #2) ) 


= 


C 
C WRITE NEW CUMMULATIVE DISTRIBUTION 
C 
WRITE(25,311)FMFA, XN, XNSQ, STDEV, TT, TNO, TSOOT 
311 FORMAT (1X,F6.4,3X,F6.1,3X,610.4,3X,G610.4, 3X, F6.1,3X,610.4, 
1 3X,610.4) . 
40@ CONTINUE 
500 CONTINUE 
RETURN 
END 
Ce eee SSeS SeSSSSSSSSSSSS SESS SHSSESSESEESKSESESE ESSERE ESSE SES 


Ceeeeee ee eee eee ee SSRSSeSKeKSSSSSHSSHESHRHSKSHESHSESKSSSSR ESSE SKS eS s 


C 


C SUBROUTINE EVAP(NZ) 

c 

C PURPOSE 

c TO CREATE FUEL VAPOR ELEMENTS GENERATED BY EVAPORATION IN 
C EACH ZONE, MIX THEM WITH A RANDOM ELEMENT IN THE ZONE 
C AND CALCULATE THE PROPERTIES OF THE MIXED ELEMENTS. 

C 

C USAGE 

C CALL EVAP(NZ). ALL DATA PASSED THROUGH COMMON. 

C 

C VARIABLES 

c (SEE SMM) 

c 

C ARRAYS 

C (SEE SMM) 

C 


SUBROUTINE EVAP(NZ) 
INCLUDE *SMMCOM.FOR’ 
INCLUDE *SMZCOM. FOR’ 
DIMENSION ELEMT(MAXELE,6), ELMT(MAXELE, 4) , SVOLD(MAXELE) 
DIMENSION PREP(MAXELE) , NEXT (MAXELE) 
DIMENSION NUM(NA,MAXELE) , TFMF (MAXELE) 
COMMON /ELEMT1/ ELEMT 
COMMON /ELEMT2/ ELMT 
COMMON /ELEMT4/ SVOLD 
COMMON /ELEMTS/ PREP 
COMMON /ELEMT6/ NUM, TFMF 
PARAMETER (RBAR#=1 .9869,CCAL=. 02421725) 
NEVAP= IF 1X (ZMEVAP (NZ) /ELMM) 
IF (NZ.EQ.NA) THEN 

IF (NEVAP.GT .NELAIR)NEVAP=NELAIR 
ELSE 

IF (NEVAP .GT.NELS(NZ) )NEVAP=NELS (NZ) 
END IF 
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IF (NEVAP.EQ.@)RETURN 
ZMVAP (NZ) =ZMEWAP (NZ)—NEVAP * ELMM 
DO 108 L=1,NEVAP 

NELTOT=NELTOT+1 

NELS(NZ)=NELS(NZ)+1 

NUM(NZ, NELS(NZ) )=NUM(NA, NELTOT) 

I=NUM(NZ , NELS(NZ)) 

IF (NZ.EQ.NA) THEN 
ENELS=FLOAT(NELAIR)—. 01 
NELAIR=NELAIR+1 

ELSE 
ENELS=FLOAT(NELS(NZ)—-1)—.01 

END IF 

CALL RANDOM(IX, IY, YFL) 

IX=IY 

L2=I1FIX(1.0+YFL®ENELS) 

IF(NZ.EQ.NA.AND.L2.EQ.NELS(NZ))GO TO 40 

IF (NZ. EQ.NA.AND.L2.GT.NELS(NZ) ) THEN 
NELS(NA)=NELS(NA)+1 
NELTOT=NELTOT+1 
NUM(NA, NELS(NA) )=NUM(NA, NELTOT) 
J=NUM(NA, NELS(NA) ) 

ELEMT (J, 1)=ZMBFA/(ZMA-ZMVA) 
ELEMT(J,2)=ZTEMP (NA) 
ELEMT(J,3)=(ZMA-ZMVA) /ZMA 
IF(ELEMT(J,3).LT.1.) THEN 
CALL UTHRMO(P, ELEMT(J,2),ELEMT(J,1),ELEMT(J,3), 
ELEMT(J,4),ELEMT(J,5), ELEMT(J,6)) 
ELSE 
CALL BTHRMO(P, ELEMT(J,2), ELEMT(J,1), ELEMT(J, 4), 
ELEMT(J,5), ELEMT(J,6)) 
END IF 
ELMT(J,1)=0. 
ELMT(J,2)=0. 
ELMT(J,3)=0. 
ELMT(J,4)=TIME 
PREP(J)=0. 
SVOLD(J)=RBAR*ELEMT(J,2)/(ELEMT(J,6) sCCAL#P) 

ELSE 
J=NUM(NZ, L2) 

CALL PROP(TIME,NZ,J) 

END IF 

ELEMT(I,1)=ELEMT(J,1) 

ELEMT(1,3)=ELEMT(J,3)/2. 

ELEMT(1,4)=(ELEMT(J,4)+HFUEL+HEVAP) /2. 

TGUESS=(TSAT+ELEMT(J,2))/2. 

CALL UTEMP(TGUESS, ELEMT(I,1), ELEMT(I,3),ELEMT(I,4), 
ELEMT(1,2),1) 

ELMT(1I,1)=ELMT(J,1)/2. 

ELMT(1,2)=ELMT(J,2)/2. 

ELMT(1,3)=ELMT(J,3)/2. 

PREP(1)=PREP(J)/2. 

CALL PREPUP(DTMIX(NZ)/2.,1) 

TFMF(1)=1.—ELEMT(1,3)*(1.-ELEMT(I,1)) 

DO 5@ K=1,6 
ELEMT(J,K)=ELEMT(I,K) 

CONT INUE 

DO 60 K=1,4 





60 


2002 


ELMT(J,K)=ELMT(I,K) 
CONTINUE 
PREP (J)=PREP(1) 
SVOLD(I)=SVFUEL 
TFMF (J)=TFMF(I) 


100 CONTINUE 


RETURN 
END 


Ceeeeaee eS ERTS ETRE EERE KERR EEE 


CeeeeekSeSSSHH EKER SEER EKER ERE KERR ER ERE RE REESE 


C 


C 
C 
C 
C 
C 
C 
C 
C 
C 


Cc 


C 


SUBROUTINE FLOW 


PURPOSE 


GIVEN INPUT FROM SMZ, TRANSFERS MASS ELEMENTS BETWEEN 
ZONES. CALCULATES DIFFERENCE FROM SPECIFIED MASS 
FLOW FOR INCLUSION IN NEXT TIMESTEP. CALLS BOUNDARY 
MIXING ROUTINES 


SUBROUTINE FLOW 

INCLUDE °SMMCOM. FOR’ 

INCLUDE *'SMZCOM. FOR’ 

DIMENSION FLM(NFLOW) , FLMV(NFLOW) , FLMBF(NFLOW) , 
ELEMT(MAXELE, 6) , ELMT (MAXELE,4) , SVOLD(MAXELE), 


2 PREP(MAXELE) 


DIMENSION NUM(NA,MAXELE) , TFMF (MAXELE) 

DIMENSION NEXT1(MAXELE) ,NEXT2(MAXELE) , NEXT3(MAXELE) 
DIMENSION NEXT4(MAXELE) , NEXTS (MAXELE) , NEXT6 (MAXELE) 
COMMON /ELEMT1/ ELEMT 

COMMON /ELEMT2/ ELMT 

COMMON /ELEMT4/ SVOLD 

COMMON /ELEMTS/ PREP 

COMMON /ELEMT6/ NUM, TFMF 

COMMON /SORT/ NEL1,NEL2,NEL3,NEXT1,NEXT2,NEXT3 
COMMON /SORTX/ NEL4,NEL5,NEL6,NEXT4,NEXTS ,NEXT6 
PARAMETER (CCAL=.02421725,RBAR=1.9869) 


DO 852 NF=1,NFLOW 


C INITIALIZE VARIABLES 


C 
52 


35 
C 


FLM(NF)=0. 

FLMV(NF)=0. 

FLMBF(NF)=0. 

NFP1=NF+1 

IF(NF.£Q.NFLOW) GO TO 620 

IF (NP(NF).LE.0.OR.NELS(NF).LE.@) GO TO 200 
IF (NP(NF).GE.NELS(NF)) THEN 


C MOVE ALL ELEMENTS IN NF TO NFP1 


Cc 


NP (NF )=NELS(NF) 

DO 100 Ki=1,NELS(NF) 
K2=NELS (NFP1 )+K1 
N1=NUM(NF,K1) 
NUM(NFP1,K2)=N1 
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C UPDATE FLOWS 
C 
95 FLM(NF )=FLM(NF)+ELMM 
FLMV(NF)=FLMV(NF)+(1.-ELEMT(N1,3)) *ELMM 
FLMBF(NF)=FLMBF(NF)+ELEMT(N1,1)*ELEMT(N1,3) *ELMM 
100 CONTINUE 
NELS(NFP1)=NELS(NFP1)+NELS(NF) 
NELS(NF)=0 
ELSE 


MOVE NP ELEMENTS FROM NF TO NFP1. DETERMINE TYPE OF ELEMENT 
NEEDED AND SELECT RANDOM ELEMENT FROM FUEL VAPOR RICH 
GROUP, BURNED FUEL RICH GROUP, OR LEAN GROUP. 


aagaan 


CALL SORT1(NF) 
DO 160 J=1,NP(NF) 
K2=NELS(NFP1)+d 
C 
C NEED FUEL VAPOR RICH ELEMENT 
c 
IF ((FMV(NF)—-FLMV(NF)) .GT.FERMAX.AND. (FMV(NF)—FLMV(NF) ) 
1 .GT. (FMBF(NF)—FLMBF(NF)).AND.NEL1.GT.@) THEN 
ENELS=FLOAT(NEL1 )—.01 
CALL RANDOM(IX,IY,YFL) 
IX=1Y 
J1=IFIX(1.0+YFL*ENELS) 
K1=NEXT1(J1) 
N1=NUM(NF,K1) 
NUM(NFP1,K2)=N1 
C 
C FILL SLOTS IN NF AND NEXT1 
c 
NEXT 1 (J1)=NEXT1(NEL1) 
NEL1=NEL1-1 
IF(K1.EQ.NELS(NF))GO TO 152 
NUM(NF ,K1)=NUM(NF,NELS(NF) ) 
IF(NEL1.GT.@)THEN 
DO 151 L=1,NEL1 
IF(NEXT1(L).£Q.NELS(NF))NEXT1(L)=K1 
151 CONT INUE 
END IF 
152 NELS (NF)=NELS(NF)—1 
C 
C NEED BURNED FUEL RICH ELEMENT 
c 
ELSE I1F((FMBF(NF)-FLMBF(NF) ).GT.FERMAX.AND.NEL2.GT.@) THEN 
ENELS=FLOAT(NEL2)—.01 
CALL RANDOM(IX, IY, YFL) 
IX=1Y 
J1=I1FIX(1.0+YFL*ENELS) 
K1=NEXT2(J1) 
N1=NUM(NF,K1) 
NUM(NFP1,K2)=N1 
C 
C FILL SLOT IN NF AND NEXT2 
C 
NEXT2(J1)=NEXT2(NEL2) 
NEL2=NEL2—1 





Cc 


153 


154 
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IF(K1.EQ.NELS(NF))GO TO 154 

NUM (NF ,K1)=NUM(NF ,NELS(NF) ) 

IF (NEL2.GT.®) THEN 
DO 153 L=1,NEL2 

IF(NEXT2(L).EQ.NELS(NF) )NEXT2(L)=K1 

CONT INUE 

END IF 

NELS (NF )=NELS(NF)-1 


C NEED LEAN ELEMENT 


Cc 


ao oO 


Cc 


ELSE IF(NEL3.GT.@)THEN 
ENELS=F LOAT(NEL3)—-.01 
CALL RANDOM(IX,IY,YFL) 
IX=IY 
JI=IFIX(1.0+YFL*ENELS) 
K1=NEXT3(J1) 

N1=NUM(NF ,K1) 
NUM(NFP1,K2)=N1 


FILL SLOT IN NF AND NEXTS 


NSD .. 


156 


NEXT3(J1)=NEXT3(NEL3) 
NEL3=NEL3—1 
IF(K1.EQ.NELS(NF))GO TO 156 
NUM(NF ,K1)=NUM(NF , NELS(NF)) 
IF (NEL3.GT.@)THEN 
DO 155 L=1,NEL3 
IF (NEXT3(L). £Q.NELS(NF) )NEXT3(L)=K1 
CONTINUE 
END IF 
NELS(NF)=NELS(NF)—1 


C OTHERWISE ANY RANDOM ELEMENT 


Cc 


am 


168 


200 


ELSE 
ENELS=F_LOAT(NELS(NF) )—-.21 
CALL RANDOM(IX,IY,YFL) 
IX=1LY 
K1i=IFIX(1.0+YFL*ENELS) 
N1=NUM(NF ,K1) 
NUM(NFP1,K2)=N1 
NUM (NF , K1 )=NUM(NF ,NELS(NF)) 
NELS(NF)=NELS(NF)-1 

END IF 


UPDATE FLOWS 


FLM(NF)=FLM(NF)+ELMM 
FLMV (NF )=FLMV(NF)+(1.—-ELEMT(N1,3)) *ELMM 
FLMBF (NF )=FLMBF(NF)+ELEMT(N1,1)*ELEMT(N1,3) *ELMM 
CONTINUE 
NELS(NFP1)=NELS(NFP1)+NP(NF) 
END IF 


IF(NN(NF).LE.@.OR.NELS(NFP1).LE.0)GO TO 790 
IF(NN(NF).GE.NELS(NFP1)) THEN 
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C MOVE ALL ELEMENTS FROM NFP1 TO NF 
C 
NN(NF)=NELS(NFP1) 
DO 300 K2=1,NELS(NFP1) 
K1=NELS(NF)+K2 
N2=NUM(NFP1,K2) 
NUM(NF ,K1)=N2 
245 FLM(NF)=FLM(NF)—ELMM 
FLMV (NF )=FLMV(NF)—(1.-ELEMT(N2,3)) *ELMM 
F LMBF (NF )=FLMBF (NF )—ELEMT(N2, 1) *ELEMT(N2,3)sELMM 
300 CONTINUE 
NELS(NF)=NELS(NF)+NELS(NFP1) 
NELS(NFP1)=0 
ELSE 


MOVE NN ELEMENTS FROM ZONE NF+1 TO ZONE NF. DETERMINE TYPE OF 
ELEMENT NEEDED AND SELECT RANDOM ELEMENT FROM FUEL VAPOR RICH 
GROUP, BURNED FUEL RICH GROUP, OR LEAN GROUP. 


qgaaganaan 


CALL SORT2(NFP1) 
DO 360 J=1,NN(NF) 
K1=NELS(NF)+J 
IF ( (FMV(NF)—FLMV(NF) ).LT.-FERMAX.AND. (FMV(NF)—FLMV (NF) ) 
1 .LT. (FMBF (NF )—FLMBF(NF)).AND.NEL4.GT.@) THEN 
ENELS=FLOAT(NEL4)—.01 
CALL RANDOM(IX,1Y,YFL) 
IX=1Y 
J2=IFIX(1.Q+YFL*ENELS) 
K2=NEXT4(J2) 
N2=NUM(NFP1 ,K2) 
NUM (NF ,K1)=N2 
NEXT4(J2)=NEXT4(NEL4) 
NEL4=NEL4—1 
IF(K2.EQ.NELS(NFP1))GO TO 302 
NUM(NFP1,K2)=NUM(NFP1,NELS(NFP1) ) 
IF(NEL4.GT.@) THEN 
DO 301 L=1,NEL4 
IF (NEXT4(L) .EQ.NELS(NFP1) )NEXT4(L)=K2 
301 CONT INUE 
END IF 
302 NELS(NFP1)=NELS(NFP1)—1 
ELSE IF((FMBF(NF)—FLMBF(NF)).LT.-FERMAX.AND.NELS.GT.@) THEN 
ENELS=FLOAT(NELS)—. 01 
CALL RANDOM(IX, IY, YFL) 
IX=IY 
J2=IFIX(1.@+YFL*ENELS) 
K2=NEXT5(J2) 
N2=NUM(NFP1 ,K2) 
NUM(NF ,K1)=N2 
NEXTS(J2)=NEXTS(NELS) 
NEL5=NELS—1 
IF(K2.£Q.NELS(NFP1))GO TO 304 
NUM (NFP1,K2)=NUM(NFP1,NELS(NFP1) ) 
IF(NELS.GT.@) THEN 
DO 303 L=1,NEL5 
IF(NEXT5S(L).EQ.NELS(NFP1) )NEXT5S(L)=K2 
303 CONT INUE 
END IF 
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304 NELS(NFP1)=NELS(NFP1)—1 
ELSE IF(NEL6.GT.@) THEN 
ENELS=FLOAT(NEL6)~.01 
CALL RANDOM(IX,1Y,YFL) 
IX=IY 
J2=1F1X(1.0+YFL*ENELS) 
K2=NEXT6(J2) 
N2=NUM(NFP1,K2) 
NUM(NF,K1)=N2 
NEXT6(J2)=NEXT6(NEL6) 
NEL6=NEL6—1 
IF(K2.EQ.NELS(NFP1))GO TO 326 
NUM(NFP1,K2)=NUM(NFP1,NELS(NFP1)) 
IF(NEL6.GT.8) THEN 
DO 305 L=1,NEL6 
IF (NEXT6(L) .EQ.NELS(NFP1) )NEXT6(L)=K2 


3e5 CONTINUE 
END IF 
326 NELS(NFP1)=NELS(NFP1)—1 
ELSE 


ENELS=FLOAT(NELS(NFP1))—.21 

CALL RANDOM(IX, IY, YFL) 
IX=1Y 
K2@IFIX(1.@+YFL*ENELS) 
N2=NUM(NFP1,K2) 
NUM(NF,K1)=N2 
NUM(NFP1,K2)=NUM(NFP1,NELS(NFP1)) 
NELS(NFP1)=NELS(NFP1)-1 

END IF 

345. FLM(NF)=FLM(NF)~ELMM 
FLMV(NF)=FLMV(NF)—(1.-ELEMT(N2,3))*ELMM 
FLMBF (NF) =F LMSF(NF)~ELEMT(N2,1) *ELEMT(N2,3) *ELMM 


360 CONTINUE 
NELS(NF)=NELS(NF)+NN(NF) 
END IF 
GO TO 79@ 
600 IF(NP(NF).LE.@.OR.NELS(NF).LE.@) GO TO 77@ 
IF(NP(NF).GE.NELS(NF)) THEN 
eC 
C MOVE ALL ELEMENTS FROM NF TO NA 
Cc = 
NP (NF )=NELS(NF) 
DO 700 Ki=1,NELS(NF) 
N1=NUM(NF,K1) 
NELS(NA)=NELS(NA)+1 
NELAIR=NELAIR+1 
NUM(NA, NELS(NA) )=N1 
F LM(NF) =F LM(NF)+ELMM 
FLUMV (NF )=FLMV(NF)+(1.—-ELEMT(N1,3)) sELMM 
F LMBF (NF )=FLMBF (NF)+ELEMT(N1,1)*ELEMT(N1,3) #ELMM 
7@@ CONTINUE 
NELS(NF)=@ 
ELSE 


C 
C MOVE NP ELEMENTS FROM NF TO NA. OETERMINE TYPE OF ELEMENT 
C NEEDED AND SELECT RANDOM ELEMENT FROM FUEL VAPOR RICH 

C GROUP, BURNED FUEL RICH GROUP, OR LEAN GROUP. 
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CALL SORT1(NF) 

DO 760 J=1,NP(NF) 
NELS(NA)=NELS(NA)+1 
NELAIR=NELAIR+1 
IF ((FMV(NF)—-FLMV(NF) ) .GT.FERMAX.AND.NEL1.GT.@) THEN 

ENELS=FLOAT(NEL1)—.01 
CALL RANDOM(IX, IY, YFL) 
IX=IY 
J1=IFIX(1.@+YFL*ENELS) 
K1=NEXT1(J1) 
N1=NUM(NF,K1) 
NUM(NA, NELS(NA) )=N1 
NEXT 1 (J1)=NEXT1(NEL1) 
NELI=NEL1-1 
IF(K1.EQ.NELS(NF))GO TO 742 
NUM(NF,K1)=NUM(NF ,NELS(NF)) 
IF(NEL1.GT.@)THEN 
DO 741 L=1,NEL1 
IF (NEXT1(L).EQ.NELS(NF) )NEXT1(L)=K1 
741 CONTINUE 
END IF 
742 NELS(NF)=NELS(NF)-1 
ELSE IF((FMBF(NF)—FLMBF(NF) ).GT.FERMAX.AND.NEL2.GT.@) THEN 
ENELS=FLOAT(NEL2)—.01 
CALL RANDOM(IX, IY, YFL) 
IX=IY 
JimIFIX(1.0+YFL*ENELS) 
K1=NEXT2(J1) 
= N1=NUM(NF,K1) 
NUM(NA, NELS(NA) )=N1 
NEXT2(J1)=NEXT2(NEL2) 
NEL2=NEL2—1 
IF(K1.EQ.NELS(NF))GO TO 744 
NUM(NF , K1)=NUM(NF ,NELS(NF) ) 
IF (NEL2.GT.@) THEN 
DO 743 L=1,NEL2 
IF(NEXT2(L) .EQ.NELS(NF) )NEXT2(L)=K1 
743 CONTINUE 
END IF 
744 NELS(NF)=NELS(NF)—1 
ELSE IF(NEL3.GT.®) THEN 
ENELS=FLOAT(NEL3)—.01 
CALL RANDOM(IX,IY,YFL) 
IX=1Y 
J1=IFIX(1.@+YFL*ENELS) 
K1=NEXT3(J1) 
N1=NUM(NF,K1) 
NUM(NA,NELS(NA) )=N1 
NEXT3(J1)=NEXT3(NEL3) 
NEL3=NEL3~1 
IF(K1.EQ.NELS(NF))GO TO 746 
NUM(NF ,K1)=NUM(NF ,NELS (NF) ) 
IF(NEL3.GT.@)THEN 
DO 745 L=1,NEL3 
IF (NEXT3(L).£Q.NELS(NF) )NEXT3(L)=K1 
745 CONTINUE 
END IF 





-210- 


746 NELS(NF)=NELS(NF)=1 
ELSE 
ENELS=FLOAT (NELS(NF))—.01 
CALL RANDOM(IX,1Y,YFL) 
IX=IY 
K1mIFIX(1.0+YFL*ENELS) 
N1=:NUM(NF,K1) 
NUM(NA,NELS(NA) )=N1 
NUM(NF ,K1)=NUM(NF , NELS(NF)) : 
NELS(NF)=NELS(NF)-1 
END IF 
FLM(NF)=FLM(NF)+ELMM 
FLMV (NF )=FLMV(NF)+(1.-ELEMT(N1,3))*ELMM 
F LMBF (NF )=F LMBF (NF )+ELEMT(N1,1)*ELEMT(N1,3)*ELMM 
76@ CONTINUE 
END IF 


MOVE NN ELEMENTS FROM ZONE NA TO ZONE NA-1. DETERMINE TYPE OF 
ELEMENT NEEDED AND SELECT RANDOM ELEMENT FROM FUEL VAPOR RICH 
GROUP, BURNED FUEL RICH GROUP, OR LEAN GROUP. 


qgaaagangn 


77@ IF(NN(NF).LE.@.OR.ZMA.LE.@..OR.NELAIR.EQ.@)GO TO 790 
CALL SORT2(NA) 
D0 787 J=1,NN(NF) 
K1=NELS(NF)+1 
NELS(NF)=K1 
IF ((FMV(NF)-FLMV(NF) ).LT.-FERMAX.AND.NEL4.GT.@) THEN 
ENELS=FLOAT (NEL4)-. 01 
CALL RANDOM(IX,IY,YFL) 
IX=1Y 
J2=IF1X(1.0+YFL*ENELS) 
K2=NEXT4(J2) 
N2=NUM(NA,K2) 
NEXT4(J2)=NEXT4(NEL4) 
NEL4=NEL4—1 
IF(K2.EQ.NELS(NA))GO TO 782 
NUM(NA,K2)=NUM(NA, NELS(NA)) 
IF (NEL4.GT.@) THEN 
DO 781 L=1,NEL4 
IF (NEXT4(L).EQ.NELS(NA) )NEXT4(L)=K2 


781 CONTINUE 
END IF 
782 NELAIR=NELAIR-1 


NELS(NA)=NELS(NA)=1 
ELSE IF((FMBF(NF)—-FLMBF(NF)).LT.—-FERMAX.AND.NELS.GT.@) THEN 
ENELS=FLOAT(NELS)—. 01 
CALL RANDOM(IX,1Y,YFL) 
IX=1Y 
J2=IFIX(1.0+YFL*ENELS) 
K2=NEXT5(J2) 
N2=NUM(NA,K2) 
NEXT5(J2)=NEXT5(NELS) 
NELS=NEL5—1 
IF (K2.EQ.NELS(NA))GO TO 784 
NUM(NA,K2)=NUM(NA,NELS(NA) ) 
IF (NEL5.GT.@)THEN 
DO 783 L=1,NEL5 
IF (NEXT5(L).£Q.NELS(NA) )NEXTS(L)=K2 
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783 CONTINUE 
END IF 
784 NELAIR=NELAIR-1 


NELS(NA)=NELS(NA)-1 

ELSE IF(NEL6.GT.@)THEN 
ENELS=FLOAT(NEL6)-.01 
CALL RANDOM(IX,1Y,YFL) 
IX=1Y 
J2=1FIX(1.@+YFL*ENELS) 
K2=NEXT6(J2) 
N2=NUM(NA,K2) 
NEXT6(J2)=NEXT6(NEL6) 
NEL6=NEL6—1 
IF(K2.EQ.NELS(NA))GO TO 786 
NUM(NA ,K2)=NUM(NA,NELS(NA) ) 
IF(NEL6.GT.@) THEN 

DO 785 L=1,NEL6 
IF (NEXT6(L) .EQ.NELS(NA) )NEXT6(L)=K2 


785 CONTINUE 
END IF 
786 NELAIR=NELAIR-1 


NELS(NA)=NELS(NA)-1 
ELSE IF(NELS(NA).GT.@)THEN 
ENELS=FLOAT(NELS(NA) )-. 01 
CALL RANDOM(IX,IY,YFL) 
IX=1Y 
K2=IFIX(1.@+YFL*ENELS) 
N2=NUM(NA,K2) 
NUM(NA ,K2)=NUM(NA,NELS(NA)) 
NELS(NA)=NELS(NA)—1 
NELAIR=NELAIR—1 
ELSE 
C 
C INACTIVE ELEMENTS ARE ASSIGNED MEAN AIR ZONE PROPERTIES. 
C 
NELTOT=NELTOT+1 
N2=NUM(NA,NELTOT) 
NELAIR=NELAIR-1 
ELEMT(N2, 1)=ZMBFA/(ZMA-ZMVA) 
ELEMT(N2,2)=ZTEMP(NA) 
ELEMT(N2,3)=(ZMA-ZMVA) /ZMA 
IF(ELEMT(N2,3).LT.1.)THEN 
CALL UTHRMO(P, ELEMT(N2,2),ELEMT(N2,1),ELEMT(N2,3), 
1 ELEMT(N2,4), ELEMT(N2,5), ELEMT(N2,6)) 
ELSE 
CALL BTHRMO(P, ELEMT(N2,2),ELEMT(N2,1),ELEMT(N2,4), 
1 ELEMT(N2,5), ELEMT(N2,6)) 
END IF 
ELMT(N2,1)=0. 
ELMT(N2,2)=0. 
ELMT(N2,3)=@. 
ELMT(N2,4)=TIME 
PREP(N2)=0. 
SVOLD(N2)=RBAR®* ELEMT(N2,2)/(ELEMT(N2,6)*CCAL*P) 
TFMF(N2)=1.—-ELEMT(N2,3)*(1.—-ELEMT(N2,1)) 
END IF 
NUM(NF,K1)=N2 
FLM(NF)=FLM(NF)—ELMM 
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FLMV(NF)=FLMV(NF)—(1.-ELEMT(N2,3)) sELMM 
FLMSF (NF )=FLMSF (NF)—-ELEMT(N2, 1) sELEMT(N2,3) = ELM 
787 CONTINUE 


C 
C UPDATE RESIDUAL FLOWS 
Cc 


798 OFM(NF)=FM(NF)—FLM(NF) 
DFMV (NF )=FMV (NF )—FLMV (NF) 
DF MEF (NF )=FMSF (NF )—FLMBF (NF) 
¢ 
C CALL BOUNDARY MIXING ROUTINES IF REQUIRED 
Cc 
IF ( (ASS (DFMV(NF)) GT. FERMAX.OR.ASS(DFMESF(NF)) GT. FERMAX) .ANO. 
1) NP.NE .NFLOW.AND.NELS(NF).GT.1.AND.NELS(NFP1) .GT.1) THEN 
CALL MIXINGE(NF) 
ELSE IF((ASS(DFMV(NF)) .GT.FERMAX.OR.ASS(DFMSrF (NF) ).GT.FERMAX) 
1 .ANOD.NF.EQ.NFLOW.AND.NELS(NF) .GT.1.ANO.NELAIR.GT.@) THEN 
CALL MIXINGA 
END IF 


620 IF(ZVOL(NF).LE.@.) THEN 
DFM(NF)=2. 
DFMV(NF)=2. 
DFWSF(NF)=2. 
END IF 
85@ CONTINUE 
9@@ RETURN 
END 
OES SECC CSS E CCS SCECSCSOSOCCOSCSSOCOCSOSOCCCOCSCoCOCCCCCCOCCOCOCOCL SC cS eS Se 


Cesees ace eR RRR ASST TSSTTRASSTTASRSARSSLSS Assesses aesaessssaessaeass 
SUBROUTINE INPUT(N) 


PURPOSE 
CALLED TO INPUT ENGINE PARAMETERS, SIMULATION PARAMETERS, 
FUEL CHARACTERISTICS, COMBUSTION PARAMETERS, ANDO INPUT 
FROM MULTIDIMENSIONAL MODEL. ONLY INPUT NOT USING 
THIS SUBROUTINE ARE TASLES OF THERMO DATA (TABLE). 


—=— = 


VARIABLES (ALSO SEE SMM) 


CTOF -— FUEL CARBON WASS PER UNIT FUEL MASS 
CATOM — NUMBER OF CARBON ATOMS IN FUEL 
OTPR — TIMESTEP FOR PRINTING OUTPUT 
CAD - CARNK ANGLE INCREMENT FOR PRINTING 
DISTRIBUTION 
DTKIN — MINIMUM TIMESTEP FOR KINETIC UPDATE 
ELM - WASS OF AN INDIVIDUAL ELEWENT (GM) 


anganananannagandnNanAadNaAaAaAaAaNnNaAaanaAaAAaDa 


ERMAX ERROR CRITERION FOR TEMP ROUTINES 

FUEL CHARACTER VARIABLE ~— NAME OF FUEL 
1D SIMJLATION ID 

on, I¥ RANDOM NUMEER SEEDS 


WAXITS 
NOLD 


MAXIMUM ITERATIONS FOR TEMP ROUTINES 
GER OF PREVIOUS STOCHASTIC RUNS FOR 
AVERAGING 


NZONES NUMSER OF STOCHASTIC MIXING ZONES 
T 1 MMOM MOM CLOCK TIWE 


PHIHI 


UPPER COMBUSTION LIMIT 
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PHILOW 
Fol 
SOOTC 
SOTON 


LOWER COMBUSTION LIMIT 
N2/02 RATIO FOR AIR 
SOOT FORMATION CONSTANT 
SOOT MODEL ON/OFF 
SOTSIZ INITIAL SOOT PARTICLE RADIUS(cm) 
VERMAX MAXIMUM ERROR SUBR VOL 
WTFUEL — FUEL MOLECULAR WEIGHT 
ZH NO. HYDROGEN ATOMS IN FUEL 


qenaaaqnananIan 


SUBROUTINE INPUT(N) 
INCLUDE *SMMCOM. FOR’ 
INCLUDE *SMZCOM.FOR’ 
PARAMETER (CCAL™. 02421725) 
LOGICAL SOTON 

NAMELIST/INPUT1/ID, ELMM,OTPR,CAD,DTKIN, THALL, CRKMAX ,CBETA 

1 ,NPRINT,NOLD 
NAMELIST/INPUT2/CATOM, ZH, PSI, FUEL, TFI,RHOL,HFG, TSAT, 

1 CPF 
NAMELIST/INPUT3/ERMAX , IX, MAXITS, VERMAX, I TMAXV , FERMAX 
NAMELIST/INPUT4/PHI LOW, PHIHI , SOTON, SOTSIZ, SOOTC , TSOOT 

C 
Ceeeeeeeeeeeeseseseeeeeeeeesesesess 
C 
C INPUT NR 1: DEFAULT RUN PARAMETERS (CALLED FROM SMM) 
c 
C 1. OPERATING PARAMETERS 
c 
IF(N.EQ.2)GO TO 200 
IF(N.£Q.3)GO TO 300 
106 ID = ° SMM 171-1 ° 

ELMM = .0003 

DTPR = .0201 

CAD= 12. 

DTKIN=2.2E-05 

TWALL=420. 

CRKMAX=40 . 

CBETA=.9 

NPRINT#3 

NOLD=2 


READ(19, INPUT1) 


C 
G2. SRUEL CHARACTERISTICS 
C 


CATOM = 12.8 

ZH = 18.7 

PSI = 3.7753 
BUeE. = “O1ESEL’ 
TFI = 550. 
RHOL = .7452 
HFG = 45.246 
TSAT = 550. 

CPF = .46 


READ(1, INPUT2) 


3. SIMULATION CONTROL PARAMETERS 


aan 





1508 


Cc 


= 1L= 


ERMAX = 9.002 
1x = 20001 
MAXITS = 1200 
VERMAX = 0.01 
ITMAXV = 100 
FERMAX = 1.E£-4 


READ(1@, INPUTS) 


. COMBUSTION/SOOT PARAMETERS 


PHILOW = @.3 


PHIHI = 4.0 
SOTON = .TRUE. 
SOTSIZ = 2.0E-6 
SOOTC = .001 
TSOOT = 620. 


READ(1@, INPUT4) 


DO 15@ I=1,NZONES 
SOOTON( I )=SOTON 

CONT INUE 

GO TO 9ee 


C INPUT NR 2. READ INITIAL MDM OUTPUT. 


C 
2200 


o- 


Cc 


READ(11,901)NAME 
READ(11,902)CA1INJ,RPM 
READ(11,*)CA1INJ, SWIRL, EGR 
READ(11,*)NCYCLE 
READ(11,*)PSTART 

GO TO 3900 


C INPUT NR 3. READ MOM OUTPUT. 


C 
520 


READ(11,*) TIMMOM, PMDM 
READ(11,¢*)(FM(K) ,K=1,NFLOW) 
READ(11,*) (FMV(K) ,K=1,NFLOW) 
READ(11,*)FML@, (ZMASSL(K) ,K=1,NA) 
READ(11,*) (FMBF(K) ,K=1,NFLOW) 
READ(11,*) (ZTEMP(K) ,K=1,NA) 
READ(11,*)(ZNO(K) ,K=1,NA) 
READ(11,*) (ZMEVAP(K) ,K=1,NA) 
READ(11,*#) (ZQWALL(K) ,K=1,NA) 
READ(11,*)(ZMFBRN(K) ,K=1,NA) 
READ(11,*#) (ZVOL(K) ,K=1,NA) 
READ(11,*#) (ZFMF(K) ,K=1,NA) 
READ(11,*)(ZBETA(K) ,K=1,NA) 
READ(11,*)ZMA,ZMVA, ZMBFA 


IF (ZTEMP(NA).LE.@..OR.ZMA.LT.ELMM) THEN 
NELS(NA)=0 
NELAIR=@ 
ZMA=0. 

END IF 


DO 301 NZ=1,NZONES 





501 
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ZBETA(NZ)=CBETA*ZBETA(NZ) 
CONT INUE 


Caeaaeseeeeeeeeeseeeaeeseees 


C 
9090 
Cc 
921 
902 
Cc 


RETURN 


FORMAT (A3@) 
FORMAT(1X,F6.1,2X,F6.1) 


END 


Ceseeee eee seek ak SHSSHKKHHKEKKERAEKERHEREREERESRSESREKREREKEREERES 


Ceeeeee eee ee eee keke SHASTA EKEREKKRAREREEERKRREESEE ES 


qgaagagaganaaaYy 


aqaaggqgaqgayn 


SUBROUTINE MIXING 


PURPOSE 


MIXES TWO RANDOMLY CHOSEN ELEMENTS TOGETHER, SURNS THEM IF 
WITHIN LIMITS AND SEPARATES THEM, FORMING TWO IDENTICAL 
ELEMENTS. 


SUBROUTINE MIXING(NZ) 

INCLUDE *SMMCOM. FOR’ 

INCLUDE °*SMZCOM.FOR' 

DIMENSION ELEMT(MAXELE, 6), ELMT (MAXELE, 4) 
DIMENSION PREP(MAXELE) , SVOLD(MAXELE) 
DIMENSION NUM(NA,MAXELE) , TFMF (MAXELE) 
COMMON /ELEMT1/ ELEMT 

COMMON /ELEMT2/ ELMT 

COMMON /ELEMT4/ SVOLD 

COMMON /ELEMTS/ PREP 

COMMON /ELEMT6/ NUM, TFMF 
PARAMETER(RBAR=1 .9869,CCAL=. 02421725) 


ZT IME(NZ)=ZT IME(NZ)+DTMIX(NZ) 
NELMIX(NZ)=NELMIX(NZ)+2 


TWO DIFFERENT ELEMENTS ARE CHOSEN AT RANDOM, AND THEIR 
PROPERTIES ARE UPDATED. 


RIRST ELEMENT IS SELECTED 


2@ CALL RANDOM(IX, IY, YFL) 


aOaa0n 


IX=I1Y 
ENELS=FLOAT (NELS(NZ) )—.01 
LimIFIX(1.0 + YFL*ENELS) 


SECOND ELEMENT IS CHOSEN WHICH IS DIFFERENT 
FROM THE FIRST ONE 


3@ CALL RANDOM(IX, IY, YFL) 


IX=1Y 
L2mIFIX(1.@ + YFL*ENELS) 
TeGed-£O.2) GO TO 3e 


I=NUM(NZ,L1) 
CALL PROP(ZTIME(NZ),NZ,1) 
J=NUM(NZ,L2) 
CALL PROP(ZTIME(NZ) ,NZ,¥) 





aan g0qg00ur009 0 


qgagaqgaa 


Cc 


40 


rs 


. BOTH UNBURNED, GO TO 50 
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DETERMINE THE TYPE OF MIX 
BOTH BURNED, GO TO 90 


IF(ELEMT(I,3).£Q.1..AND.ELEMT(J,3).£Q.1.)GO To 9@ 


IF(ELEMT(I,3).LT.1..AND.ELEMT(J,3).LT.1.)GO TO 50 


. ONE BURNED, ONE UNBURNED. 


WHICH IS BURNED? CALCULATE A PREP TIME. 


IF (ELEMT(1I,3).£Q.1.) THEN 
IB=] 

ELSE 
IB=J 

END IF 

CALL PREPUP(DTMIX(NZ), 1B) 


ELEMT(I,1)=(ELEMT(I,1)*ELEMT(I,3) + ELEMT(J,1) 
*ELEMT(J,3))/(ELEMT(1,3) + ELEMT(J,3)) 

TGUESS=(ELEMT(I,2) + ELEMT(J,2))/2. 

ELEMT(I,3)=(ELEMT(I,3) + ELEMT(J,3))/2. 

ELEMT(1,4)=(ELEMT(I,4) + ELEMT(J,4))/2. 

ELMT(I,1)=(ELMT(1I,1) + ELMT(J,1))/2. 

ELMT(I,2)=(ELMT(I,2) + ELMT(J,2))/2. 

ELMT(I,3)=(ELMT(I,3) + ELMT(J,3))/2. 

PREP(I)=(PREP(I)+PREP(J))/2. 

CALL UTEMP(TGUESS, ELEMT(I,1),ELEMT(I,3),ELEMT(I,4),ELEMT(I,2),1) 

TFMF(I)=1.-ELEMT(I,3)*(1.-ELEMT(I,1)) 

CALL CMBUST(NZ,I,J) 

GO TO 119 


C 2. BOTH UNBURNED 


C 


C 


58 


ELEMT(I,1)=(ELEMT(I,1)*ELEMT(I,3) + ELEMT(J,1) 
*ELEMT(J,3))/(ELEMT(1I,3) + ELEMT(J,3)) 

TGUESS=(ELEMT(I,2) + ELEMT(J,2))/2. 

ELEMT(I,3)=(ELEMT(I,3) + ELEMT(J,3))/2. 

ELEMT(1,4)=(ELEMT(1I,4) + ELEMT(J,4))/2. 

ELMT(I,1)=(ELMT(I,1) + ELMT(J,1))/2. 

ELMT(I,2)=(ELMT(I,2) + ELMT(J,2))/2. 

ELMT(I,3)=(ELMT(I,3) + ELMT(J,3))/2. 

PREP(I)=(PREP(1I)+PREP(J))/2. 

CALL UTEMP(TGUESS, ELEMT(I,1),ELEMT(I,3),ELEMT(I,4),ELEMT(I,2).1) 

TFMF(I)=1.-ELEMT(I,3)*(1.-ELEMT(I,1)) 

CALL CMBUST(NZ,I,J) 

GO TO 119 


C 3. MIXING OF TWO BURNED ELEMENTS 


C 


92 


ELEMT(I,1)=(ELEMT(I,1) + ELEMT(J,1))/2. 
TGUESS=(ELEMT(I,2) + ELEMT(J,2))/2. 
ELEMT(I,4)=(ELEMT(1,4) + ELEMT(J,4))/2. 
ELMT(I,1)=(ELMT(I,1) + ELMT(J,1))/2. 





110 


119 


120 


152 


202 
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ELMT(1,2)=(ELMT(I,2) + ELMT(J,2))/2. 
ELMT(I,3)=(ELMT(I,3) + ELMT(J,3))/2. 

CALL BTEMP(TGUESS, ELEMT(I,1),ELEMT(1,4),ELEMT(1,2),1) 
TFMF(I)=ELEMT(I,1) 


DO 120 L=1,6 
ELEMT(J,L)=ELEMT(I,L) 
CONTINUE 

DO 130 L=1,3 
ELMT(J,L)=ELMT(I,L) 
CONTINUE 
PREP(J)=PREP(1) 
TFMF(J)=TFMF(1) 
RETURN 

END 


CeeeeeeeeeeeeS SSS SESH STH SESE EKER EEE TEESE EERE SEES 


Ceeeee eee eee SRST ESSERE SEE SEEEEESEEEEEEEEEEEE 


qgagqgagagagdanqa 


SUBROUTINE MIXINGA 


PURPOSE 


THIS SUBROUTINE SIMULATES MIXING ACROSS THE BOUNDARY 
BETWEEN ZONES NFLOW AND NA. 


SUBROUTINE MIXINGA 

INCLUDE °*SMMCOM. FOR’ 

INCLUDE *SMZCOM.FOR’ 

DIMENSION ELEMT (MAXELE,6), ELMT(MAXELE, 4), SVOLD(MAXELE) 
DIMENSION PREP(MAXELE) 


” DIMENSION NUM(NA,MAXELE) , TFMF (MAXELE) 


22 


gag ag a gO 


DIMENSION NEXT1(MAXELE) , NEXT2(MAXELE) , NEXT3(MAXELE) 
DIMENSION NEXT4(MAXELE) , NEXTS(MAXELE) , NEXT6(MAXELE) 
COMMON /ELEMT1/ ELEMT 

COMMON /ELEMT2/ ELMT 

COMMON /ELEMT4/ SVOLD 

COMMON /ELEMTS/ PREP 

COMMON /ELEMT6/ NUM, TFMF 

COMMON /SORT/ NEL1,NEL2,NEL3,NEXT1,NEXT2,NEXT3 
COMMON /SORTX/ NEL4,NELS,NEL6,NEXT4,NEXTS ,NEXT6 
PARAMETER(CCAL=. 02421725, RBAR=1.9869) 


NF=NFLOW 
NFP1=NA 

CALL SORT1(NF) 
CALL SORT2(NFP1) 


NP (NF )=NP(NF)+1 
NN(NF)=NN(NF)+1 


RANDOM ELEMENT IS CHOSEN FROM ZONE NFLOW. OETERMINE TYPE OF 


ELEMENT NEEDED ANO SELECT RANDOM ELEMENT FROM FUEL VAPOR 
RICH GROUP, BURNED FUEL RICH GROUP, OR LEAN GROUP. 


IF (DFMV(NF) .GT.FERMAX.AND.NEL1.GT.@)THEN 
ENELS1=F LOAT(NEL1)~. 21 
CALL RANDOM(IX, IY, YFL) 
IX=1Y 
LX=IFIX(1.0+YFL*ENELS1 ) 





-218- 


L1=NEXT1(LX) 
NEXT 1(LX)=NEXT1(NEL1) 
NEL1=NEL1—1 

ELSE IF(OFMBF(NF).GT.FERMAX.ANO.NEL2.GT.@) THEN 
ENELS1=FLOAT(NEL2)-.01 
CALL RANDOM(IX,1Y,YFL) 
IX=IY 
LX=IFIX(1.@+YFL*ENELS1) 
L1=NEXT2(LX) 
NEXT2(LX)=NEXT2(NEL2) 
NEL2=NEL2-1 

ELSE IF(NEL3.GT.®)THEN 
ENELS1=FLOAT(NEL3)—.01 
CALL RANDOM(IX,1Y,YFL) 
IX=lY 
LX=IFIX(1.0+YFL*ENELS1) 
L1=NEXT3(LX) 
NEXT3(LX)=NEXT3(NEL3) 
NEL3=NEL3-1 

ELSE 
GO TO 200 

END IF 

I=NUM(NF ,L1) 


SECOND RANDOM ELEMENT IS CHOSEN FROM ZONE NF+1. DETERMINE TYPE 
OF ELEMENT NEEDED AND SELECT RANDOM ELEMENT FROM FUEL VAPOR 
RICH GROUP, BURNED FUEL RICH GROUP, OR LEAN GROUP. 


gaa 0 90 0 


IF (DFMV(NF).LT.-FERMAX.AND.NEL4.LT.@) THEN 
ENELS2=F LOAT(NEL4)—.01 
CALL RANDOM(IX,I1Y,YFL) 
IXslY 
LX=IFIX(1.0+YFL*ENELS2) 
L2=NEXT4(LX) 
NEXT4(LX)=NEXT4(NEL4) 
NEL4=NEL4—1 
J=NUM(NFP1,L2) 

ELSE IF(DFMBF(NF).LT.—-FERMAX.AND.NELS.GT.@)THEN 
ENELS2=FLOAT(NELS)—-.01 
CALL RANDOM(IX, IY, YFL) 
IX=IY 
LX=IFIX(1.0+YFL*ENELS2) 
L2=NEXT5(LX) 
NEXT5(LX)=NEXT5 (NELS) 
NELS5S=NEL5—1 
J=NUM(NFP1,L2) 

ELSE IF(NEL6.GT.®)THEN 
ENELS2=FLOAT(NEL6)—. 01 
CALL RANDOM(IX,IY,YFL) 
Ix=lY 
LX=IFIX(1.0+YFL*ENELS2) 
L2=NEXT6(LX) 
NEXT6(LX)=NEXT6(NEL6) 
NEL6=NEL6—1 
J=NUM(NFP1,L2) 

BESE 


-- 


C 
Cc INACTIVE ELEMENTS ARE ASSIGNED MEAN AIR ZONE PROPERTIES 





Cc 
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AND BECOME ACTIVE ELEMENTS. 


IF (NELS(NA) .GE.IFIX(ZMA/ELMM))GO TO 200 
NELS(NA)=NELS(NA)+1 
NELTOT=NELTOT+1 
J=NUM(NA, NELTOT) 
=NELS(NA) 
ELEMT (J, 1)=ZMBFA/(ZMA—ZMVA) 
ELEMT(J,2)=ZTEMP(NA) 
ELEMT(J,3)=(ZMA-ZMVA) /ZMA 
IF(ELEMT(J,3).LT.1.)THEN 
CALL UTHRMO(P,ELEMT(J,2),ELEMT(J,1),ELEMT(J,3), 
1 ELEMT(J,4),ELEMT(J,5),ELEMT(J,6)) 
ELSE 
CALL BTHRMO(P,ELEMT(J,2),ELEMT(J,1),ELEMT(J,4), 
1 ELEMT(J,5),ELEMT(J,6)) 
END IF 
ELMT(J,1)=0. 
ELMT(J,2)=0. 
ELMT(J,3)=0. 
ELMT(J,4)=TIME 
PREP(J)=0. 
SVOLD (J) =RBAR*ELEMT(J,2)/(ELEMT(J,6)*P*CCAL) 
TFMF (J)=1 .-ELEMT(J,3)*(1.-ELEMT(J,1)) 
END IF 


C CALCULATE FLOWS 


—C 
62 


OFMV (NF )=DFMV(NF)—ELMM*(ELEMT(J,3)—-ELEMT(I,3)) 


- OFMBF (NF)=DFMBF(NF)—-ELMM*(ELEMT(I,1)*ELEMT(I,3)— 


aa 
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520 


Cees 


Creer 


NNgQAaAAAAAYN 


1 ELEMT(J,1)*ELEMT(J,3)) 
EXCHANGE ELEMENTS BETWEEN ZONES 


NUM(NA, L2)=I 
NUM(NF,L1)=J 


IF (ABS(DFMV(NF)) .GT. FERMAX.OR.ABS(DFMBF (NF) ).GT.FERMAX) THEN 
GO TO 20 

ELSE 
GO TO 300 

END IF 

DFMV (NF )=DFMV(NF)—ELMM*(ELEMT(J,3)-ELEMT(1I,3)) 

OFMBF (NF )=DFMBF (NF )—ELMM*(ELEMT(I,1)*ELEMT(1I,3)— 

1 ELEMT(J,1)*ELEMT(J,3)) 

RETURN 

END 


SEK KKEKKKKSKKESKEEKEKEKREKEKEKEKRKEK ERE EEE EKER EEE 


SESS KEKE KEKREKEKRESKEHEKEKEKEKEKEKEKEKEKEKHKEEKESEKREKR EK EKEEEEEE 


SUBROUTINE MIXINGB(NF) 
PURPOSE 


THIS SUBROUTINE SIMULATES MIXING ACROSS THE BOUNDARY 
BETWEEN TWO MIXING ZONES. 

IT EXCHANGES TWO RANDOMLY CHOSEN ELEMENTS ACROSS THE 
BOUNDARY. 





qaogqgqaqaqanqanagn 


qgaagangana gn 
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SUBROUTINE MIXINGB(NF) 

INCLUDE °SMMCOM. FOR’ 

INCLUDE 'SMZCOM. FOR’ 

DIMENSION ELEMT(MAXELE, 6) 

DIMENSION NUM(NA,MAXELE) , TFMF (MAXELE) 

DIMENSION NEXT1(MAXELE) ,NEXT2(MAXELE) , NEXT3 (MAXELE) 


DIMENSION NEXT4(MAXELE) , NEXT5 (MAXELE) , NEXT6(MAXELE) 
COMMON /ELEMT1/ ELEMT 


COMMON /ELEMT6/ NUM, TFMF 
COMMON /SORT/ NEL1,NEL2,NEL3,NEXT1,NEXT2,NEXT3 


COMMON /SORTX/ NEL4,NEL5S,NEL6,NEXT4,NEXTS,NEXT6 
NFP 1=NF+1 


CALL SORT1(NF) 
CALL SORT2(NFP1) 


TWO DIFFERENT ELEMENTS ARE CHOSEN AT RANDOM, ONE FROM 
EACH ZONE. 


FIRST RANDOM ELEMENT IS SELECTED FROM ZONE NF. DETERMINE TYPE 


OF ELEMENT NEEDED AND SELECT RANDOM ELEMENT FROM FUEL VAPOR 
RICH GROUP, BURNED FUEL RICH GROUP, OR LEAN GROUP. 


NP(NF)=NP(NF)+1 

NN(NF)=NN(NF)+1 

IF (DFMV(NF) .GT.FERMAX. AND.NEL1.GT.@) THEN 
ENELS1=FLOAT(NEL1)—.01 
CALL RANDOM(IX, IY, YFL) 
IX=IY 
LX=IFIX(1.0+YFL*ENELS1) 
L1=NEXT1(LX) 
NEXT1(LX)=NEXT 1 (NEL1) 
NEL1=NEL1~1 

ELSE IF(DFMBF(NF).GT.FERMAX.AND.NEL2.GT.@) THEN 
ENELS1=FLOAT(NEL2)—-.01 
CALL RANDOM(IX, IY, YFL) 
IX=1Y 
LX=IFIX(1.0+YFL*ENELS1) 
L1=NEXT2(LX) 
NEXT2(LX)=NEXT2(NEL2) 
NEL2=NEL2~1 

ELSE IF(NEL3.GT.@) THEN 
ENELS1=FLOAT(NEL3)—.01 
CALL RANDOM(IX, IY, YFL) 
IX=IY 
LX=IFIX(1.@+YFL*ENELS1) 
L1=NEXT3(LX) 
NEXT3(LX)=NEXT3(NEL3) 
NEL3=NEL3—1 

ELSE 
GO TO 200 

END IF 

I=NUM(NF, L1) 


SECOND RANDOM ELEMENT IS CHOSEN FROM ZONE NF+1. DETERMINE TYPE 


OF ELEMENT NEEDED AND SELECT RANDOM ELEMENT FROM FUEL VAPOR 
RICH GROUP, BURNED FUEL RICH GROUP, OR LEAN GROUP. 
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IF (OFMV(NF) .LT.-FERMAX.AND.NEL4.LT.@) THEN 
ENELS2=F LOAT(NEL4)—-.01 
CALL RANDOM(IX, IY, YFL) 
IX=1Y 
LX=IFIX(1.0+YFL*ENELS2) 
L2=NEXT4(LX) 
NEXT4(LX)=NEXT4(NEL4) 
NEL4=NEL4—1 
ELSE IF(DFMBF(NF).LT.—FERMAX.AND.NEL5.GT.@) THEN 
ENELS2=FLOAT(NELS)—. 01 
CALL RANDOM(IX, IY, YFL) 
IxX=IY 
LX=IFIX(1.0+YFL*ENELS2) 
=NEXT5 (LX) 
NEXT5(LX)=NEXT5(NELS) 
NELS=NEL5—1 
ELSE IF(NEL6.GT.@)THEN 
ENELS2=FLOAT(NEL6)—.01 
CALL RANDOM(IX, IY, YFL) 
IX=1Y 
LX@IFIX(1.0+YFL*ENELS2) 
L2=NEXT6(LX) 
NEXT6(LX)=NEXT6(NEL6) 
NEL6=NELS—1 
ELSE 
GO TO 200 
END IF 
J=NUM(NFP1, L2) 
¢ 
C CALCULATE FLOWS 
C 
6@  OFMV(NF)=DFMV(NF)—ELMM*(ELEMT(J,3)—-ELEMT(I,3)) 
DFMBF (NF )=DFMBF(NF)—ELMM*(ELEMT(I, 1) *ELEMT(I,3)— 
1 ELEMT(J,1)*ELEMT(J,3)) 


C 
C EXCHANGE ELEMENTS BETWEEN ZONES 
Cc 
NUM(NFP1,L2)=] 
NUM(NF,L1)=J 
c 
IF (ABS(DFMV(NF)).GT. FERMAX.OR.ABS(DFMBF (NF) ).GT. FERMAX) THEN 
GO TO 20 
ELSE 
GO TO 300 
END IF 


20@ OFMV(NF)=DFMV(NF)—ELMMe(ELEMT(J,3)-ELEMT(I,3)) 
OFMBF(NF)=DFMBF (NF )—ELMM*(ELEMT(I,1)*ELEMT(I,3)— 
1 ELEMT(J,1)*ELEMT(J,3)) 
3@@ RETURN 
END 
Ceeeeeeke eek eS KSSSSSSHHSSSSSSTSSKSSSSS SSE SHEESH SESE E SES 
Ceee eee ee eee eee SS SK SSS SK SSSSSSSHSSSSS SSS SSK KSSH SSK SESS SSS HSS 
C SUBROUTINE OUTPUT(N) 
c 
C PURPOSE 
C HANDLES ALL OUTPUT FOR PROGRAM SMM 
C 
C VARIABLES 





¥(1) 
¥(2) 
(3) 
¥(4) 
¥(S) 
¥(6) 
¥(7) 
¥(8) 
NOX 
TMOLS 


qaengnngngagaanaaganaanganagang 


AVERAGE 
AVERAGE 
AVERAGE 
AVERAGE 
AVERAGE 
AVERAGE 
AVERAGE 
AVERAGE 
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TEMPERATURE OF ENSEMBLE 

GAS TEMPERATURE OF ENSEMBLE 

SPECIFIC VOLUME 

SPECIFIC VOLUME OF GASEOUS ELEMENTS 
FUEL MASS FRACTION 

FUEL MASS FRACTION OF GASEOUS ELEMENTS 
FUEL MASS FRACTION OF BURNED ELEMENTS 
TEMPERATURE OF BURNED ELEMENTS 


NO EMISSIONS (PPM) 
TOTAL NO. OF MOLES 


SUBROUTINE OUTPUT (N) 

INCLUDE *SMMCOM.FOR' 

*SMZCOM. FOR’ 

DIMENSION NUM(NA,MAXELE) , TFMF(MAXELE) 
DIMENSION ELEMT(MAXELE, 6) , ELMT (MAXELE, 4) 
DIMENSION TAV(NA) ,FFUEL(NA) , TBFX(NA) 
DIMENSION TAVX(NA) ,OFMVX(NFLOW) , DFMBFX(NFLOW) , FFUELX(NA) 
COMMON /ELEMT1/ ELEMT 

COMMON /ELEMT2/ ELMT 

COMMON /ELEMT6/ NUM, TFMF 

REAL NOX,Y(9),YT(9),MGAS,MBURN ,MTOT 
PARAMETER (CCAL=. 02421725, RBAR=1 .9869) 


INCLUDE 


ao 


OUTPUT NR 1 — PRINTOUT 


INPUT DATA 


IF(N.EQ.1) GO TO 10@ 


~ 


om @) 


OUTPUT NR 2 — INTERMEDIATE RESULTS 


IF(N.£Q.2) GO TO 200 


ao 


OUTPUT NR 5 — VOLUME OUT OF TOLERANCE 


IF(N.EQ.5) GO TO 500 


C OUTPUT NR 6 — BTEMP DID NOT CONVERGE 
IF(N.EQ.6) GO TO 620 


ao 


OUTPUT NR 9 — UTEMP DID NOT CONVERGE 


IF(N.EQ.9) GO TO 650 


C 
C 


OUTPUT NR 8 — FINAL 


IF(N.£Q.8) GO TO 200 


Cc 


Cesuseeseeseseeeseseesesesesesesstesssess 


Cc 


C OUTPUT NR 1: 


Cc 


C 
C 


PRINTOUT INPUT DATA 


Semeur TITLE PAGE 


100 WRITE(14,908) 
WRITE(14,900) 
DO 110 I=1,10 
WRITE(14,901) 
11@ CONTINUE 
WRITE(14,902) 
DO 111 I=1,5 








111 


112 


Ve 


113 


Cc 
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WRITE(14,901) 
CONTINUE 
WRITE(14,903) 
DO 112 I=1,4 

WRITE( 14,901) 
CONT INUE 
WRITE(14,9031)ID 
PO"™1121 e1,13 

WRITE(14,901) 
CONTINUE 
WRITE(14,904) 
WRITE( 14,905) 
WRITE(14,906) 
DO 113 I=1,12 

WRITE( 14,901) 
CONTINUE 
WRITE(14,907) 


C SET UP INPUT DATA PAGE 


Cc 


Cc 


IPAGE=1 
WRITE(14,928) 
WRITE(14,909) IPAGE 
WRITE(14,910)ID 


C PRINT OUT INPUT DATA AND SELECTED CALCULATIONS 


Cc 


WRITE(14,912) 
WRITE(14,913) 
WRITE(14,914)NAME 
WRITE(14,915)RPM 
WRITE(14,916)CA1INJ 
WRITE(14,917)CRKMAX 
WRITE( 14,918) 
WRITE(14,919) FUEL 
WRITE(14,920)CATOM, DEL 
WRITE(14,921)PSI 
WRITE(14,922) 
WRITE(14,923)ELMM 

WRITE( 14,924) VERMAX, ERMAX 
WRITE(14,925)MAXITS, ITMAXV 
WRITE(14,926) IX 
WRITE(14,927)NA 
WRITE(14,928)DTPR 
WRITE(14,9281)DTKIN 


IPAGE=IPAGE+1 


WRITE( 14,908) 
WRITE( 14,909) IPAGE 
WRITE(14,918)ID 


WRITE(14,929) 
WRITE(14,930)PHIHI ,PHILOW 
WRITE(14,931)SOTSIZ 
WRITE(14, 932) SOOTON(2) 
WRITE(14,933)SOOTC 
WRITE(14,9333)CBETA 


it |. a 
. 





_ ee 
oe 
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NLINES=9 
GO TO 899 


Ceeeeeeeeeeeeeeeeeeeeeseeeeeeeeeseses 


C 


C OUTPUT NR 2: INTERMEDIATE RESULTS 


C 

C 

C 
280 


205 
C 


OUTPUT CALCULATIONS 


TSOOT=0. 
TNOX=2. 
TWT=2. 
TMGAS=2. 
TMTOT=0. 
TMBURN=2. 
TTMOLS=2. 
TTMEVAP=0. 
TOTBF=0. 
TBFMDM=2 . 
TMASSL=2. 
FFUELI=0. 
FFUEL2=0. 
DO 205 J=1,9 
YT(J)=0. 
CONTINUE 


C CALCULATE OUTPUT FOR EACH ZONE EXCEPT NA 


Cc 


210 


212 


DO 25@ NZ=1,NZONES 

MBURN=2 

MGAS=NELS (NZ) * ELMM+ZMVAP (NZ) 

DO 210 J=1,9 
Y(J)=®. 

CONT INUE 

SOOT=0. 

TMOLS=0. 

NOX=0. 

IF(MGAS.LE.@..OR.NELS(NZ).LT.1)GO TO 252 

IF(NLINES.GE.9.AND.NPRINT.NE.2.AND.NPRINT.NE.3) THEN 
IPAGE=IPAGE+1 
WRITE(14,928) 
WRITE(14,937) ID, IPAGE 
WRITE(14,938) 
NLINES=0 

END IF 

DO 212 LI=1,NELS(NZ) 
I=NUM(NZ, LI) 
SV=RBAR*ELEMT(1,2)/(P*CCAL*ELEMT(I,6)) 
UFMF=1.@—-ELEMT(I,3) 
Y(2)=Y(2)+ELEMT(I,2)*ELMM 


Y(4)=Y(4)+SV*ELMM 
Y(6)=Y(6)+(1.-ELEMT(1,3)«(1.-ELEMT(1I,1))) *ELMM 
Y(9)=Y(9)+UFMF*ELMM 

IF(ELEMT(I,3).LT.1.) GO TO 212 
MBURN=MBURN+ELMM 


Y(7)=Y(7)+ELEMT(1,1) «ELM 
Y(8)=Y(8)+ELEMT(I,2)*ELMM 
CONTINUE 





215 


216 


220 
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Y(1)=#Y(2)+ZMASSL(NZ)*TFI 
Y(3)=Y(4)+ZMASSL(NZ)/RHOL 
Y(6)=Y(6)+ZMVAP (NZ) 
Y(5)=Y(6)+ZMASSL(NZ) 
Y(9)=Y(9)+ZMVAP (NZ) 
DO 215 J=1,9 
YT(J)=YT(J)+Y(J) 
CONTINUE 
MTOT=MGAS+ZMASSL(NZ) . 
Y¥(1)=¥(1)/MTOT 
Y¥(3)=¥ (3) /MTOT 
Y(5)=¥(5)/MTOT 
Y(2)=Y(2)/MGAS 
IF(NZ.£Q.1)T1=Y(2) 
IF(NZ.£Q.2)T2=Y(2) 
Y(4)=Y(4)/MGAS 
Y(6)=Y(6)/MGAS 
Y(9)=Y(9)/MGAS 
IF(MBURN.EQ.@.) GO TO 216 
Y¥(7)=Y(7) /MBURN 
Y(8)=Y(8)/MBURN 


DO 220 LI=1,NELS(NZ) 
I=NUM(NZ, LI) 
TMOLS=TMOLS+ELMM/ELEMT(1,6) 
NOX=NOX+ELMT(I, 1) *ELMM 
SOOT=SOOT+ELMT(1,3) 

CONTINUE 


WTMOL=NELS(NZ) *ELMM/TMOLS 

TWT=TWT+NELS (NZ) *ELMM 

TTMOLS=TTMOLS+TMOLS 

TSOOT=TSOOT+SO0T 

TNOX=TNOX+NOX 

NOX=NOX* 1. @E+@6/MGAS 

SOOT=(SOOT/ (MTOT#Y(5) *CTOF) ) #100. 

FFUEL(NZ)=Y(6) 

TAV(NZ)=Y(2) 

PHIAV=PHICON®Y(5)/(1. — Y(5)) 

PHIGAS=PHICON®Y(6)/(1. — Y(6)) 

PHIBRN=PHICON®Y(7)/(1. -— Y(7)) 

IF(NPRINT.NE.2.AND.NPRINT.NE.3) THEN 

WRITE(14,939)NZ, CRANK, Y(1),Y(2),Y(3),Y(4) ,PHIAV, PHIGAS,P 

WRITE(14,940)NCYC, Y(8) ,Y(9) ,NOX, ELMM, PHIBRN, PMDM 

WRITE(14,9401)DTMIX(NZ) ,NELS(NZ) , ZMASSL(NZ) ,SOOT,WTMOL, 
TMEVAP (NZ) , TTBF (NZ) , TBF (NZ) 

END IF 

TMASSL=TMASSL+ZMASSL (NZ) 

TMT OT=TMTOT+MTOT 

TMGAS=TMGAS+MGAS 

NLINES=NLINES+1 


250 CONTINUE 


251 


DO 251 NZ=1,NZONES 


TTMEVAP=T TMEVAP+TMEVAP (NZ) 
TOTBF=TOTBF+TBF (NZ) 
TBFMOM=TBFMDM+TTBF (NZ) 


CONTINUE 





C 
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C CALCULATE OUTPUT FOR ALL ZONES INCLUDING 1 


Cc 


255 


272 


ZMA=ZMA-DFM(NFLOW) 
ZMVA=ZMVA—DFMV (NFLOW) 
ZMBF A=ZMBFA—DFMBF (NFLOW) 
TMASSL=TMASSL+ZMASSL(NA) 
UBFMFA=ZMVA 
TTMEVAP=T TMEVAP+TMEVAP (NA) 
IF((ZMA.LE.@. .OR.NELS(NA).EQ.@).AND.TMTOT.GT.@.) THEN 
YT(1)=YT(1)/TMTOT 
YT (2)=YT(2)/TMGAS 
YT(3)=YT(3)/TMTOT 
YT(4)=YT(4)/TMGAS 
YT (5)=(TTMEVAP+TMASSL)/TMTOT 
YT (6)=TTMEVAP/TMGAS 
YT(9)=(YT(9)+UBFMFA)/TMGAS 
TWTMOL=TWT/TTMOLS 
TSOOT=(TSOOT/(TMTOT*YT (5) *CTOF) ) #100. 
TNOX=TNOX #1 .0E+6/TMGAS 
ELSE 
TMTOT=TMTOT+ZMA+ZMASSL (NA) 
TMGAS=TMGAS+ZMA 
TMOLSA=@. 
NOX=@. 
SOOT=0. 
DO 255 LI=1,NELS(NA) 
I=NUM(NA, LI) 
NOX=NOX+ELMT(1I,1)*ELMM 
SOOT=SOOT+ELMT (1,3) 
CONTINUE 
BGFRA=1.—ZMVA/ZMA 
FRA=ZMBFA/(ZMA-ZMVA ) 
IF(BGFRA.LT.1.) THEN 
CALL UTHRMO(P,ZTEMP(NA),FRA,BGFRA,HAIR,CPAIR,WTAIR) 
ELSE . 
CALL BTHRMO(P,ZTEMP(NA) , FRA,HAIR,CPAIR,WTAIR) 
END IF 
TMOLSA=ZMA/WTAIR 
SVAIR=RBAR*ZTEMP(NA)/(P*#CCAL*WTAIR) 
YT(1)=(YT(1)+ZTEMP (NA) *ZMA+TFI *ZMASSL(NA) )/TMTOT 
YT (2)=(YT(2)+ZTEMP (NA) *ZMA) /TMGAS 
YT(3)=(YT(3)+SVAIR*ZMA+ZMASSL(NA)/RHOL) /TMTOT 
YT(4)=(YT(4)+SVAIR*ZMA)/TMGAS 
YT (5)=(TTMEVAP+TMASSL) /TMTOT 
YT (6)=(TTMEVAP) /TMGAS 
YT(9)=(YT(9)+UBFMFA)/TMGAS 
TTMOLS=TTMOLS+TMOLSA 
TWTMOL=(TWT+ZMA) /TTMOLS 
TSOOT=( (TSOOT+SOOT)/(TMTOT*YT(5) *CTOF) ) #100. 
TNOX= ( TNOX+NOX) #1. @E+06/TMGAS 
TOTBF=TOTBF+TBF (NA) 
TBFMDM=TBFMDM+T TBF (NA) 
END IF 
PHIAV=PHICON*YT(5)/(1.-YT(5)) 
PHIGAS=PHICON®YT(6)/(1.-YT(6)) 
IF (NPRINT.NE.2.AND.NPRINT .NE.3) THEN 
WRITE(14,941)CRANK,YT(1),.YT(2),YT(3).YT(4) ,PHIAV,PHIGAS,P 
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WRITE(14,942)NCYC,YT(9), TNOX, TMTOT, PHIBRN, PMOM 
WRITE(14,9421) TMASSL, TSOOT, THTMOL, TTMEVAP, TBFMDM, TOTSF 
END IF 


IF (NPRINT.NE.5) THEN 
IF(NAV.GT.@.AND.NOLD.GT.@)THEN 
READ(20,*)CRANK, (TAVX(L), L=1,NZONES) 
READ (21, *) CRANK, (DFMVX(L) , DFMBFX(L), L=1,NFLOW) 
READ(22,*)CRANK, (FFUELX(L) ,L=1,NZONES) 
READ(23,*)CRANK, (TBFX(L) , L=1,NZONES) 
END IF 


WRITE( 15,9422) CRANK, ((NAV* TAVX(L)+TAV(L) )/NAVP1 , L=1,NZONES) 


WRITE(16,9425)CRANK, ((NAV*DFMVX(L)+DFMV(L) )/NAVP1, (NAV® 
1 DFMBFX(L)+DFMBF(L))/NAVP1,L=1,NFLOW) 


WRITE(17,9424)CRANK, ( (NAV#FFUELX(L)+FFUEL(L) )/NAVP1,L=1,NZONES) 
WRITE(18,9424)CRANK, ((NAV*TBFX(L)+TBF(L))/NAVP1, L=1,NZONES) 


END IF 
WRITE(9,9423)CRANK,P,YT(2), TNOX, TSOOT, TOTBF 
PTEMP=P 
IF (NAV.GT.@.AND.NOLD.GT.@) THEN 
READ (24, *)CRANK,PX, YTX, TNOXX , TSOOTX, TOTBFX 
PTEMP=(NAV*PX+P) /NAVP 1 
YT(2)=(NAV®YTX+YT (2) ) /NAVP1 
TNOX= (NAV TNOXX+TNOX) /NAVP 4 
TSOOT=(NAV*® TSOOTX+TSOOT) /NAVP 1 
TOTBF=(NAVs TOTBFX+TOTBF) /NAVP1 
END IF 
WRITE(19,9423)CRANK,PTEMP,YT(2) , TNOX, TSOOT , TOTBF 
IF(N.EQ.8) GO TO 800 


NLINES=NLINES+1 

GO TO 899 
C 
C seeeeeecessesseesessseeeeeeeseeeeeesese 
C 


C OUTPUT NR 5: VOLUME OUT OF TOLERANCE 
5@@ WRITE(13,945) NCYC,TIME,CRANK, VOLERR 


GO TO 899 
C 
C seaseceseeseceseeseeseesssesesseesesess 
C 


C OUTPUT NR 6: BTEMP DID NOT CONVERGE 
6@@ WRITE(13,946) NCYC,CRANK 


GO TO 899 
C 
CG SSSSsesseseegesesseseseseseseseseseeeseseseseseseseseseeesesess 
C 


C OUTPUT NR 9: UTEMP DID NOT CONVERGE 
650 WRITE(13,9461) NCYC,CRANK 


GO TO 899 
C 
C seeecesesessesesesesessesesesssesssessss 
C 


C OUTPUT NR 8: FINAL 
B00 WRITE(14,948) NCYC, TIME,CRANK 


C 
C SSSSessesesseseeseseseseesesesesesesesesesesesesesesesesesseses 
C 

899 RETURN 


Cc 





C 
C 
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FORMAT STATEMENTS seeeseeesaececeseesess 


9@@ FORMAT(//,7X,118('*")) 
901 FORMAT(7X,’*',108X,°#") 
902 FORMAT(7X,°*#’,42X,’°MIT SLOAN AUTOMOTIVE LAB’ ,42X,'*#’) 


903 FORMAT(7X,’*’,29X, *STOCHASTIC MIXING MODEL ENGINE COMBUS’, 
&* TION SIMULATION’ ,27X,’#’) 


9031 FORMAT(7X,°*’ ,47X,A15,46X,°#") 


904 FORMAT(7X,°*’,6X, VERSION 1.0°,91X,’#’) 

9@5 FORMAT(7X,’*’,6X, "AUGUST 1985 ',9@X,’#’) 
906 FORMAT(7X,’*’,6X,°A.J. BROWN * .87X,°#*) 
907 FORMAT(7X,110(’*’)) 

908 FORMAT(’1°) 


909 FORMAT(//,31X,'—— STOCHASTIC MIXING MODEL ENGINE COMBU’, 
&*STION SIMULATION —’,21X, PAGE ’,11) 

912 FORMAT(///,5X,° SIMULATION ID: °,A15) 

912 FORMAT(///,49X,21('—’),/,49X,"I NP UT Dela TPA’, 


&/,49X,21('-")) 
913 FORMAT(//,1®X,100(’-'),/,5X,°I. | OPERATING CONDITIONS’ ) 
914 FORMAT(/,14X, MULTIDIMENSIONAL MODEL —>’ ,8X,A3@) 
915 FORMAT(/,14X,° ENGINE SPEED (RPM) —>’,8X,F6.1) 
916 FORMAT(/,14X, INJECTION CRANK ANGLE (ATDC) —>’,8X,F6.1) 
917 FORMAT(/,14X,°END CRANK ANGLE (ATDC) —>’8X,F6.1) 
918 FORMAT(//,10X,100(’—"),/,5X,°II. FUEL AND AIR’) 
919 FORMAT(/,14X, FUEL TYPE —>’,15X,A12) 
920 FORMAT(/,14X, ‘SPECIFICATIONS —>’,12X, CARBON ATOMS: °, 
& iP £9.2,6X,°C/H RATIO: °,1P £10.3) 
921 FORMAT(/,14X, ’NITROGEN/OXYGEN RATIO —>’,2X,1P £10.3) 
922 FORMAT(//,10X,100(*-"),/,5X, III. SIMULATION CONTROL!’ ) 
923 FORMAT(/,14X, *ELEMENT MASS (g) —>’,8X,1P £10.3) 
924 FORMAT(/,14X, ERROR TOLERANCES (re!) —>’,8X,°VOLUME:’, 
& 1P £10.3,6X,°ENTHALPY (for temp calc): °,iP £10.3) 
925 FORMAT(/,14X, *MAXIMUM NUMBER OF ITERATIONS —>’, 2X, 
& *TEMPERATURE SUBROUTINES: ’,1X,13,2X,’’VOLUME SUBROUTINE:’,1X,I3) 
926 FORMAT(/,14X, °RANODOM NUMBER SEED —>’,6X,19) 
927 FORMAT(/,14X, 'NUMBER OF ZONES —>’,6X,12) 
928 FORMAT(/,14X, *PRINTOUT TIMESTEP (s) —>’,6X,1P £10.3) 


9281 FORMAT(/,14X, °KINETIC UPDATE TIMESTEP (s) —>’,6X,1P £10.3) 


929 FORMAT(//,10X,100('’-’),/,5X,’°IV. ASSUMED INPUT VALUES’) 

930 FORMAT(/,14X,’° LIMITS OF COMBUSTION (phi) —>’,4X,’UPPER: °,F6.4, 
& 6X,’°LOWER: °,F6.5) 

931 FORMAT(/,14X, INITIAL SOOT SIZE UPON FORMATION (cm) —>’,2X, 
&iP £18.3) 

932 FORMAT(/,14X,°SOOT MODEL IS ON —>’,2X,L1) 

933 FORMAT(/,14X,°SOOT FORMATION RATE FACTOR —>’,2X,G108.3) 


9333 FORMAT(/,14X,’CBETA —>’,2X,F5.2) 


937 FORMAT(29X, ‘’—- STOCHASTIC MIXING MODEL ENGINE COMBUSTION ° 

lime SIMULATION —* ,9X,412,2X, °PAGE *,12,///) 
938 FORMAT(7X, ’ ZONE’ ,3X, *CRANK(ATDC)’,4X, *TAVE(K)°,5X, *TGAVE(K)’, 
6X, *SVAVE(CC/G) ’, 3X, "SVGAVE(CC/G)’, 4X, ‘PHIAV’ , 6X, "PHIGAS’, 
9X, °P(ATM)’,/,14X, "NCYC’,11X, *TBURN(K)°,4X, “UBFMF’ , 9X, 
*NOX(PPM)’*,7X, ELMM(G)’,4X, *PHIBURN’ ,8X, °PMDM’, 
/,14X, *DTMIX(S)°,7X, "NELS’ ,8X, °ZMASSL(G)° ,5X, ‘SOOT(%C)’ , 6X, 
*WIMOL’,11X, "MEVAP(G)’,4X, °TBFMDM(G)°,5X, 'TBF(G)°) 
939 FORMAT(//,8X,12,4X,F7.2,8X,F7.2,5X,3(F7.2, 7X), F6.2,6X,F5.2, 

1 10X,F6.2) 
94@ FORMAT(13X,14,12X,F7.2,5X,G12.5,2X,612.5,2X,G612.5, 2X, 

1 F4.2,10X,F6.2) 


Oner GhN 
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9401 FORMAT(13X,G12.5, 4X, 14,8X,G12.5, 2X,G12.5, 2X,G12.5,2X,G612.5, 
fee CS 2 2x.C9.2) 

941 FORMAT(//,8X, ‘ALL’ ,3X,F7.2,8X,F7.2,5X,3(F7.2,7X) .1X,F5.2,7X, 

1 F4.2,10X,F6.2) 

942 FORMAT(13X,14,24X,G12.5,2X,G12.5,2X,G12.5, 2X, F4.2, 10X,F6.2) 
9421 FORMAT(41X,G12.5,2X,G12.5,2X,G12.5, 2X%,G12.5, 2X%,G9.2, 2X,G9.2) 
9422 FORMAT(1X,F6.2, 10F7.1) 

9423 FORMAT(1X,F6.2,F6.2,F7.1,1X,G9.3,1X,G9.3,1X,69.3) 
9424 FORMAT(1X,F6.2, 10G9.2) 
9425 FORMAT(1X,F6.2,9610.2,/,7X,9G10.2) 
943 FORMAT(4X, ERROR 3: NCYC=’,14,3X,'TIME=’,F6.4,3X, 'CRANK=' ,F6.2, 
1 3X, ’NZ=',12,3X,*ZMASSL=' ,G10.3) 
944 FORMAT(4X, ERROR 4: NCYC=’,14,3X,'TIME=',F6.4,3X, 'CRANK=' ,F6.2, 
1 3X, '’NZ=',12,3X, 'ZMASSL=’ ,G10.3,3X, *ZMEVAP=’ ,G10.3) 
945 FORMAT(4X, "ERROR 5: NCYC=’,14,3X,'TIME=’ ,F6.4,3X, ‘CRANK=’,F6.2, 
1 3X, VOLERR=’,G10.3) 
946 FORMAT(4X, "ERROR 6:(BTEMP) NCYC=',14,3X, ‘CRANK=’ ,F6.2) 
9461 FORMAT(4X,°ERROR 9:(UTEMP) NCYC=',14,3X,'CRANK=’ ,F6.2) 
948 FORMAT(//,7X,'THE END: NCYC=’ ,14,3X,’*TIME=’,F6.4,3X, ‘CRANK=", 
1 682) 
END 
CeeeeeeeSe SS SSeS SS STS SSS SSSSHSKSESTSE KT SKS TKSSKESSTKSETESTRESKES KEES EETE EE 
Ceeeeeee kee eee TSHEE SSK ERE EEE EEE 


C 
SUBROUTINE PREPUP(DTUP,N) 


PURPOSE 
UPDATES ELEMENT IGNITION PREPARATION 


C 

C 
C 
C 
c 
C PARAMETERS 
C DELAY -— __ ICNITION DELAY TIME 
C PREP -— INTEGRATED IGNITION PREPARATION 
C DTUP — TIME INTERVAL FOR UPDATE 
c 
c 

SUBROUTINE PREPUP(DTUP,N) 

INCLUDE *SMMCOM. FOR’ 

DIMENSION ELEMT(MAXELE,6) , PREP(MAXELE) 
COMMON /ELEMT1/ ELEMT 

COMMON /ELEMT5/ PREP 

PARAMETER (A=3.45E—-3, E=2100. ,C=1.22) 


C 
DELAY=A*EXP(E/ELEMT(N,2))/(P##C) 
PREP(N)=PREP(N)+DTUP/DELAY 
c 
RETURN 
END 


Ceseeeese eee eS S SSS SSSSSSSSSHSSSSESSESSSSSEHETESSHSSSHSHESSESEESSHE SEH SEKESSE ESE 
Ceeeee ee SSKSSHEHSESESSTSESSEESSS SESH SESEESH EERSTE S SHER EKESEEEEE ESSE SE 
C SUBROUTINE PROP(TIMUP,NZ,N) 

C 

C PURPOSE 


Cc 
C TO UPDATE ELEMENT PROPERTIES EVERY DTKIN OR BEFORE MIXING. 
C TO CALCULATE THE FORMATION OF NO AND THE FORMATION/ 

C OXIDATION OF SOOT.(AS SPECIFIED) 

C 

C 





qQaqgaqga 0 0 


qOan0”r.—N 


Qaa0 0 


C 
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NO FORMATION IS CALCULATED VIA THE ZELDOVICH MECHANISM 
AND SOOT OXIDATION IS CALCULATED BY THE NAGLE AND 
STRICKLAND—CONSTABLE RELATION. 


SUBROUTINE PROP(TIMUP,NZ,N) 

INCLUDE *SMMCOM. FOR’ 

INCLUDE *SMZCOM.FOR’ 
DIMENSION ELEMT(MAXELE,6) , ELMT(MAXELE,4) , PREP (MAXELE) 

COMMON /ELEMT1/ ELEMT 

COMMON /ELEMT2/ ELMT 

COMMON /ELEMTS/ PREP 

PARAMETER (RHO=1.8, CONSNO=4.56E15,CCAL=.02421725,RBAR=1 .9869) 


UPDATE PROPERTIES 


DTPROP=T IMUP-ELMT (N, 4) 
IF(DTPROP.LE.@.)GO TO 4@@ 
ELMT(N,4)=TIMUP 
IF(ELEMT(N,3).LT.1.) THEN 
CALL PREPUP(DTPROP,N) 
CALL CMBUST(NZ,N,@) 
WTBG=ELEMT(N, 6) *WTFUEL*ELEMT(N,3)/(WTFUEL- 
ELEMT(N,6)*(1.—ELEMT(N,3))) 
CALL SPECO2(P,ELEMT(N,2), ELEMT(N,1) ,02) 
02=02*ELEMT(N,3) *ELEMT(N,6)/WTBG 
IF(SOOTON(NZ)) CALL SOOT(DTPROP,O2,N) 
ELSE 
CALL SPECO2(P,ELEMT(N,2),ELEMT(N, 1) ,02) 
PREP(N)=O. 
END IF 
IF(ELEMT(N,2).LE.170@.) GO TO 300 


NO FORMATION CALCULATIONS 


SV=RBAR*ELEMT (N,2)/(P*CCAL*ELEMT(N,6)) 

CALL SPECNO (P,ELEMT(N,2),ELEMT(N,1),U1,U2,U3) 
ALFA=ELMT(N, 1) *#ELEMT(N,6)/(U1#30. ) 
BETA=82.05*ELEMT(N, 2) #82.05*ELEMT(N,2)/(P#P) 

DNOD T=CONSNO* EXP(—38000. /ELEMT(N,2))#(1.-ALFA®ALFA) # 


& U2sSV/((1.+ALFA*#U3) *BETA) 


ELMT(N, 1)=ELMT(N, 1)+ONOOT *OTPROP*ELEMT(N,3) 
IF(ELMT(N,1).LT.@. )ELMT(N,1)=0. 


C SOOT OXIDATION CALCULATIONS 


Cc 


520 


IF(ELMT(N,3) .LE. @.) GO TO 340 
IF(ELMT(N,2) .LE. @.) GO TO 340 
IF(ELEMT(N,2).LT.TSOOT)GO TO 400 
SKA=20. #EXP(-15100./ELEMT(N,2)) 
SKB=4 ,46£-3*EXP(-7650./ELEMT(N, 2) ) 
SKT=1.51E5*EXP(—48800. /ELEMT(N, 2) ) 
SKZ=21.3*EXP(2060./ELEMT(N,2)) 
U4PPC=02*P 
SXX=1./(1.+SKT/(SKB*U4PPC) ) 
WXX=e12.* (SKA#U4PPC/(1.+SKZ*U4PPC) ) *SXX+SKB*U4PPC» (1.—SXX) 
OSOXDT=ELMT (N, 2) #WXX 
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C 
C SOOT MASS CHANGE 
C 
OLD=ELMT(N,3) 
ELMT(N,3)=ELMT(N, 3)—-DTPROP *DSOXDT 
IF(ELMT(N,3) .GT. @.)GO TO 350 
342 ELMT(N,3)=0. 
ELMT(N,2)=0. 
GO TO 400 
C 
C SOOT SURFACE AREA CHANGE 
C 
35@ ELMT(N,2)=ELMT(N,2)*((ELMT(N,3)/OLD) #*. 666666) 
C 
© 
4002 RETURN 
END 
CeeeeaSKHSHSHSEHEHRASHSHSEHRSEHEAHAEKSHHSHAEHREHRHAEHEAAEHHRHEEARERHERRAREASESES 


Ceeeea aa aSHAHHSHHAHSAH SHEARER ARERES 


C 

C SUBROUTINE QWALL(NZ) 

C 

C PURPOSE 

DISTRIBUTES ZQWALL TO EACH ELEMENT IN THE ZONE 
ACCORDING TO (T-TWALL) AND SURFACE AREA 


VARIABLES 


gaag0 0a 0 


SUBROUTINE QWALL(NZ) 
- INCLUDE *SMMCOM. FOR’ 
INCLUDE *SMZCOM. FOR’ 
DIMENSION NUM(NA,MAXELE) , TFMF(MAXELE) 
REAL XSVDT(MAXELE) , ELEMT (MAXELE, 6) 
COMMON /ELEMT1/ ELEMT 
COMMON /ELEMT6/ NUM, TFMF 
PARAMETER(RBAR#=1.9869,CCAL=.02421725) 
IF (ZQWALL(NZ).E£Q.0.) GO TO 300 
DEN=2. 
TTHIRD=2./3. 
DO 100, LN=1,NELS(NZ) 
N=NUM(NZ, LN) 
SV=RBAR*ELEMT(N,2)/(P*CCAL*ELEMT(N, 6) ) 
XSVDT (N)=(SV**TTHIRD) *(ELEMT(N,2)—TWALL) 
DEN=DEN+XSVDT(N) 
12@ CONTINUE 
DO 200, LN=1,NELS(NZ) 
N=NUM (NZ, LN) 
ELEMT(N, 4) =ELEMT(N, 4)+ZQWALL(NZ) #XSVDT(N)/(DEN*ELMM) 
20@ CONTINUE 
30@ RETURN 
END 
CeeeeSSSSSSSSSSSSSSSHHSSSSSHSSSSSSSHSSHAHHSHHHRHARSKEHSTSHHHK HEHE Ses esesses 
Cees SS SS SS SSS SHHSSHSTAHAHSSSSSSHSSSSSHSSSSHSHSEHSEHHHSSSSSSSSesseeeess 
c 
SUBROUTINE RANDOM 


C 
C 
C PURPOSE 
C COMPUTES UNIFORMLY DISTRIBUTED RANDOM NUMBERS BETWEEN 





EACH 


Pelee lear 


lY 
YFL 


REMARKS 
NONE 


NONE 


METHOD 


gggqagqagaaaNnNMNAaNNnNNANAaNNAANANAARAAAAAAAYQ 
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@ AND 1.6 AND RANDOM INTEGERS BETWEEN ZERO AND 2*231. 


ENTRY USES AS INPUT AN INTEGER RANDOM NUMBER AND 


PRODUCES A NEW INTEGER AND REAL RANDOM NUMBER 


DESCRIPTION OF PARAMETERS 
PARAMETER INPUT OUTPUT DESCRIPTION 


YES NO FOR THE FIRST ENTRY THIS MUST 

—_—s — CONTAIN ANY ODD INTEGER NUMBER WITH 
a NINE OR LESS DIGITS. AFTER THE FIRST 
—>—s — ENTRY IX SHOULD BE THE PREVIOUS 
ee VALUE OF IY COMPUTED BY THIS 

— — SUBROUTINE. 

NO YES A RANDOM NUMBER BETWEEN © AND 2##314 
NO YES A RANDOM NUMBER BETWEEN @ AND 1.0 


SUBROUTINE AND FUNCTION SUBPROGRAMS REQUIRED 


SEE IBM MANUAL C20—-8011, RANDOM NUMBER 
GENERATION AND TESTING 


SUBROUTINE RANDOM(IX,1Y,YFL) 
~ INTEGER*4 IX,1Y 
TY=1X*655359 


FEGLY) 1 


Zee 


1 TY=IY+2147485647+1 


2 YFL=I1Y 


YFL=YFL*0.465661E-9 


RETURN 
END 


Cee eeee seek eK ERE SERRE ERE SERA SASK EKEEEREREERE 


Ceeeaee ase AEA HESSS SASHES EREEEES 


PROGRAM SMM 


PURPOSE 


INPUT 


10 
11 
12 


aanagaagaaaagagagagagaagagaanqa 


FUNCTION AS THE PRIMARY CONTROL PROGRAM FOR A 
STOCHASTIC MIXING MODEL TO CALCULATE EMISSIONS IN A 
DIESEL ENGINE. INITIALIZES VARIABLES 

CALLS INPUT AND OUTPUT, DOES PRELIMINARY CALCULATIONS 
AND CONTROLS PROGRAM EXECUTION AND EVENT TIMING. 


LOGICAL UNITS: 


OUTPUT CONTENT 
9 PRIMARY SINGLE RUN OUTPUT FILE 
NAMELIST 
MDM DATA 


THERMO DATA 





DO DDDADADANDANAAANDAANAAANANAADAAAANAANDAANANDAAAANANAADAANDDANDARAADVVDAQVAAYO 


20 
21 
22 
25 
24 
26 


VARIABLES 


13 
14 
-15 
16 
17 
18 
19 
25 


CA1TINJ 
CAD 
CATOM 
CBETA 
CP 

CPF 
CRANK 
CRANKD 
CRKMAX 
CTOF 
DT 

DEE 
DELTAP 


OTPR 
OTKIN 
CAD 
ELM 
ERMAX 
F ERMAX 
FMLO 
BUEL 
HEVAP 
HFG 
HFUEL 
ID 

I TMAXV 
1X LY 
LLIMT 
MAXITS 
NAME 
NA 

NAV 
NCYC 
NELAIR 
NELTOT 
NF 
NLINES 
NPRINT 


NZ 
NZONES 
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ERRORS 

FANCY SINGLE RUN OUTPUT 

MEAN ZONE TEMPERATURES (MULTIPLE RUN AVERAGE) 
FLOW ERRORS (MULTIPLE RUN AVERAGE) 

ZONE FUEL FRACTIONS (MULTIPLE RUN AVERAGE) 
ZONE BURNED FUEL (MULTIPLE RUN AVERAGE) 
PRIMARY OUTPUT (MULTIPLE RUN AVERAGE) 
DISTRIBUTIONS (MULTIPLE RUN AVERAGE) 


CRANK ANGLE START OF INJECTION (ATDC) 
CRANK ANGLE BETWEEN DISTRIBUTION OUTPUTS 
NUMBER OF CARBON ATOMS IN FUEL 
SCALING CONSTANT FOR MIXING INTENSITY 
SPECIFIC HEAT (cal/g-k) 
FUEL SPECIFIC HEAT (cal/g-K) 
CRANK ANGLE (DEGREES ATDC) 
CRANK OF PREVIOUS DISTRIBUTION OUTPUT (ATDC) 
CRANK ANGLE END OF RUN (ATDC) 
FUEL CARBON MASS PER UNIT FUEL MASS 
BASIC TIMESTEP (s) 
FUEL C:H RATIO 
SMM PRESSURE DIFFERENCE SINCE LAST MDM 
UPDATE(atm) 
TIMESTEP FOR PRINTING OUTPUT(s) 
MINIMUM TIME BETWEEN CHEMISTRY UPDATES (S) 
CRANK ANGLE INCREMENT FOR DISTRIBUTION OUTPUT 
ELEMENT MASS (g) 
ERROR CRITERION FOR TEMP ROUTINES (fraction) 
FLOW ERROR TOLERANCE (g) 
LIQUID FUEL INJECTED DURING MDM TIMESTEP (g) 
CHARACTER VARIABLE CONTAINING NAME OF FUEL 
FUEL SENSIBLE+LATENT HEAT OF EVAPORATION(cal/g) 
FUEL LATENT HEAT (cal/g) 
FUEL VAPOR ENTHALPY AT TSAT (cal/g) 
CHARACTER VARIABLE, SPECIFIED SIMULATION ID 
MAX ITERATIONS FOR VOLUME CONSERVATION ROUTINE 
RANDOM NUMBER SEEDS 
LOWER LIMIT OF COMBUSTION (FMF) 
MAXIMUM NUMBER OF ITERATIONS FOR TEMP ROUTINES 
NAME OF MDM RUN USED 
TOTAL NUMBER OF ZONES OR NUMBER OF AIR ZONE 
NUMBER OF SMM RUNS USED FOR AVERAGING 
NUMBER OF MDM UPDATES 
NUMBER OF ELEMENTS IN AIR ZONE(ACTIVE+INACTIVE) 
TOTAL NUMBER OF ACTIVE ELEMENTS (ALL ZONES) 
ZONE FLOW NUMBER 
NUMBER OF LINES IN OUTPUT PAGE 
SPECIFIES OUTPUT FORMAT 
NPRINT=1 — WRITES ALL OUTPUT FILES 
NPRINT=2 — WRITES LOGICAL UNITS 15-19 
NPRINT=3 — WRITES 15-19,25 
NPRINT=4 — WRITES 13-19,25 
NPRINT=5 — WRITES 13,14,19 


ZONE NUMBER 
NUMBER OF SMM ZONES NOT INCLUDING AIR ZONE 





NDNA ADADADADNAADNDDDADAADADAADNDANDAANANAANDAMAANDAANAAANAANDAANAIAANAAIANAAIANAIAIAIAAAAAG 


ARRAYS 


22342 


P — SMM PRESSURE (atm)-—CALCULATED 
PMDM - MDM INPUT PRESSURE (ATM) 
PHI — FUEL=AIR EQUIVALENCE RATIO 
PHICON — STOICHIOMETRIC AIR — FUEL RATIO 
PHIHI — PHI UPPER COMBUSTION LIMIT 
PHILOW —= PHI LOWER COMBUSTION LIMIT 
PSI — N2/02 RATIO FOR INLET AIR 
PSTART — PRESSURE AT CRANK=CA1INJ (atm) 
RHOL — FUEL DENSITY (g/cc) 
RPM — ENGINE SPEED 
SOTSIZ — INITIAL SOOT PARTICLE RADIUS FOR FORMATION (cm) 
SOOTC = SOOT FORMATION RATE CORRECTION FACTOR 
SVFUEL — FUEL VAPOR SPECIFIC VOLUME AT TSAT (cc/g) 
TFI — FUEL TEMPERATURE AT INJECTION (K) 
TIME = CUMULATIVE SMM CLOCK TIME (s) 
TIMEPR — TIME OF PREVIOUS BASIC PRINTOUT (s) 
TIMMDM — TIME END OF NEXT MOM CYCLE (s) 
TMPROP — TIME ROUTINE PROP LAST CALLED (s) 
TSOOT - MIN TEMP FOR SOOT OXIDATION (K) 
TSAT — FUEL SATURATION TEMPERATURE AT P=5QATM (K) 
TWALL — CYLINDER WALL TEMPERATURE (K) 
ULIMT — UPPER LIMIT OF COMBUSTION (FMF) 
VERMAX — MAX VOLUME ERROR IN VOL ROUTINE (FRAC) 
WTIFUEL — FUEL MOLECULAR WEIGHT (9/gmo! ) 
ZH — NO. OF HYDROGEN ATOMS IN THE FUEL 
ZMA — AIR ZONE TOTAL MASS (g) 
ZMVA — AIR ZONE FUEL VAPOR MASS (g) 
ZMBFA — AIR ZONE BURNED FUEL MASS (g) 
DFM(NF) — RESIDUAL FLOW MASS (g) ADDED TO FM NEXT DT 
OFMBF(NF) — RESIDUAL FLOW BURNED FUEL MASS (g) 
DFMV(NF) — RESIDUAL FLOW FUEL VAPOR MASS (g) 
OTMIX(NZ) — TIME STEP BETWEEN MIXING FOR ZONE NZ (S) 
FM(NF) — TOTAL MASS FLOW (g) 
FMBF(NF) — BURNED FUEL MASS FLOW (g) 
FMV(NF) — FUEL VAPOR MASS FLOW (9g) 
NELMIX(NZ) - NUMBER OF ELEMENTS MIXED IN ZONE NZ LAST 
TIMESTEP 
NELS(NZ) — NUMBER OF ACTIVE ELEMENTS IN ZONE NZ 


NOTE: ELEMENTS IN THE AIR ZONE OO NOT BECOME ACTIVE UNTIL THEY ARE 


REQUIRED FOR SOME SMM PROCESS, IE. MIXING, EVAPORATION, 
FLOW. THIS REDUCES RUN TIME BY NOT MIXING ELEMENTS THAT 
AREN’T DOING ANYTHING. NELS(NA) = ACTIVE AIR ZONE ELEMENTS. 
NELAIR = TOTAL AIR ZONE ELEMENTS. 


NN(NF) — NUMBER OF MASS FLOW ELEMENTS IN NEGATIVE 
DIRECTION 
NP(NF) — NUMBER OF MASS FLOW ELEMENTS IN POSITIVE 
DIRECTION 
NUM(NZ,N) — PROPERTY ARRAY NUMBER FOR ELEMENT N IN ZONE NZ 
SOOTON(NZ) - IF ‘TRUE’ SOOT MODEL ON IN ZONE NZ 
TBF(NZ) — TOTAL BURNED FUEL FOR ZONE NZ IN SMM 
TBFMOM — TOTAL BURNED FUEL ALL MOM ZONES (g) 
TOTBF — TOTAL BURNED FUEL ALL SMM ZONES (g) 
TTBF(NZ) — TOTAL BURNED FUEL FOR ZONE NZ IN MOM (g) 
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TTMEVAP — TOTAL FUEL MASS EVAPORATED ALL ZONES (g) 
TFMF(I1) — TOTAL FUEL MASS FRACTION FOR STORAGE ARRAY I 
ZBETA(NZ) — ZONE MIXING INTENSITY (1/s) 
ZFMF(NZ) -— ZONE MEAN TOTAL FUEL MASS FRACTION 
ZMEVAP(NZ) — TOTAL FUEL MASS EVAPORATED IN ZONE NZ (g) 
ZMV(NZ) -— ZONE FUEL VAPOR MASS (g) 

ZMFBRN(NZ) - MDM TOTAL BURNED FUEL ZONE NZ DURING TIMESTEP(g) 

ZMVAP (NZ) — RESIDUAL EVAPORATED FUEL IN ZONE NZ (g) 
ZNO(NZ) — MDM TOTAL NO IN ZONE NZ (Q) 

ZQWALL(NZ) -— ZONE WALL HEAT TRANSFER DURING TIMESTEP (cal) 
ZTEMP(NZ) - MDM MEAN ZONE TEMPERATURE ZONE NZ (K) 
ZTIME(NZ) — TIME OF LAST MIXING IN ZONE NZ (S) 

ZVOL(NZ) — ZONE VOLUME (cc) 


PROPERTIES OF EACH ELEMENT ARE STORED IN THESE ARRAYS: 
I=PROPERTY ARRAY ID, I IS RELATED TO AN ELEMENT NUMBER BY 
I=NUM(NZ,N). THIS MAPPING PROVIDES EFFICIENT MIXING 
AND FLOW PROPERTY EXCHANGES AND REDUCES PAGE FAULTING. 


ELEMT(I,1) 
ELEMT(1,2) 
ELEMT(I,3) 
ELEMT(1,4) 
ELEMT(1,5) 
ELEMT(1,6) 
ELMT(I,1) 
ELMT(1I,2) 
ELMT(1,3) 
ELMT(1,4) 


FUEL FRACTION OF BURNT FRACTION 

TEMPERATURE (K) 

BURNT GAS FRACTION (BGFR; INCLUDES AIR) 
SPECIFIC STANDARD ENTHALPY (CAL/G) 298K DATUM 
SPECIFIC HEAT [CP] (CAL/G-K) 

MOLECULAR WEIGHT 

NITRIC OXIDE MASS FRACTION 

EFFECTIVE AREA OF SOOT (CM##2) 

MASS OF SOOT (G) 

TIME OF LAST KINETIC UPDATE (SEC) 


SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 
ERRSET (VAX/VMS ERROR CONTROL ROUTINE),EXIT (VAX/VMS FILE 
CLOSING ROUTINE), INPUT,MIXING ,OUTPUT ,SMZ , TABLE, UTHRMO 


WRITTEN BY A.J.BROWN 


PROGRAM SMM 
INCLUDE 


° SMMCOM. FOR’ 


INCLUDE °*SMZCOM. FOR’ 

DIMENSION NUM(NA,MAXELE) , TFMF (MAXELE) 
CHARACTER#12 IDX 

COMMON /ELEMT6/ NUM, TFMF 
PARAMETER(RBAR=1 . 9869 , CCAL=. 02421725) 


READ IN PROGRAM BASIC DATA 


CALL INPUT(1) 


CALL TABLE 


CALL ERRSET(7@,.TRUE.,.FALSE.,.FALSE.,.FALSE. ,15) 


PRELIMINARY CALCULATIONS 


DEL=CATOM/ZH 


PHICON=(32.+28.013*PSI)*(DEL+.25)/(12.@*DEL+1 .028) 
LLIMT=PHI LOW/ (PHI LOW+PHICON) 





aa0 
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ULIMT=PHIHI/(PHIHI+PHICON) 

CTOF = 12./(12. + 1.008/DEL) 

CALL UTHRMO(5@.,TSAT,@.,@.,HFUEL,CP,WTFUEL) 
SVFUEL=TSAT #RBAR/ (50. #CCAL*#WTFUEL) 
HEVAP=—-HFG—-CPF* (TSAT-TF1) 


INPUT BASIC MDM DATA 


CALL INPUT(2) 


PRINT OUT TITLE PAGE, INPUT DATA AND RESULTS OF PRELIMINARY 
CALCULATIONS 


IF(NPRINT.EQ.4.OR.NPRINT.EQ.5)CALL OUTPUT(1) 


PRINTOUT HEADINGS FOR VARIOUS OUTPUT FILES 
READ NUMBER OF RUNS INCLUDED IN OUTPUT AVERAGES 


IF(NPRINT.EQ.1) THEN 
DO 5@ L=1,NZONES 
WRITE(L,1001)ID 
CONTINUE 
END IF 
ND=I FIX((CRKMAX—CA1 INJ) /CAD) 
WRITE(9, 1002) ID 
WRITE(19, 1002) ID 
NAV=@ 
IF (NOLD.GT.@)READ(24, 1002) IDX 
IF (NOLD.GT.@)READ(24,*)NAV 


~ NAVP 1=NAV+1 


1000 


1001 


WRITE(19,*)NAVP1 
IF(NPRINT.NE.5) THEN 
WRITE(15, 1003)ID 
WRITE(16, 1004) ID 
WRITE(17,1005)ID 
WRITE(18,1006)ID 
END IF 
IF((NPRINT.EQ.3.OR.NPRINT.EQ.4).AND.NOLD.GT.@)THEN 
WRITE(25, 1000)NAME 
WRITE(25,*)CA1TINJ, SWIRL, EGR 
WRITE(25,*)ND 
READ(26, 1000 )NAME 
READ(26,*)CA1INJ, SWIRL, EGR 
READ(26,*)ND 
ELSE IF(NPRINT.EQ.3.OR.NPRINT.EQ.4) THEN 
WRITE(25, 1000 )NAME 
WRITE(25,*)CA1INJ, SWIRL, EGR 
WRITE(25,#)ND 
END IF 
FORMAT (A3@) 
IF (NPRINT.NE.5.AND.NAV.NE.@) THEN 
READ(20, 1007) IDX 
READ(21, 1008) IDX 
READ(22, 1009) IDX 
READ(23, 1010) IDX 
END IF 
IF(NPRINT.NE.2.AND.NPRINT.NE.3)WRITE(13, 1002) ID 
FORMAT (30X,A15,/,30X, °ZONE DATA’,/,1X, 'CRANK’, 3X, 
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1 NEES "4 SX, tie 5. 4X, WN” , 4X, "NEVAP’ , 2X, "NMIX’ , 6X, 
2 ‘*DELP(%)’) 
1002 FORMAT(3@X,A15,/) 
1003 FORMAT(30X,A15,/,25X,"° ZONE AVERAGE TEMPERATURES’ ) 
1007 FORMAT(30X,A15,/) 
1004 FORMAT(30X,A15,/,27X, ZONE FUEL FLOW ERRORS’) 
1008 FORMAT(30X,A15,/) 
1005 FORMAT(30X,A15,/,30X, ZONE AVERAGE FMF’) 
1009 FORMAT(30Xx,A15,/) 
10@6 FORMAT(30X,A15,/,30X, °ZONE FUEL BURNED’) 
1010 FORMAT(30Xx,A15,/) 
Cesseeeeeseeasenceses 
Cc 
C SET CLOCKS AND INITIAL PRESSURE, INITIALIZE VARIABLES. 
Cc 
TIME=(CA1INJ+9@. )/(RPM#6. ) 
T IMMDM=TIME 
TIMEPR=T IME 
CRANKD=CA1INJ 
DT=0. 
DO 150 NZ=1,NA 
TMEVAP(NZ)=0. 
TBF(NZ)=2. 
TTBF(NZ)=0. 
ZTIME(NZ)=TIME 
ZMVAP (NZ)=. 
15@ CONTINUE 
DO 160 NF=1,NFLOW 
DFM(NF) =o. 
~  DFMV(NF)=0. 
DFMBF(NF)=0. 
NELS(NF)=@ 
16@ CONTINUE 
NELS(NA)=@ 
P=PSTART 
PMDM=PSTART 
NCYC=0 
DO 170 N=1,MAXELE 
NUM(NA,N)=N 
17@ CONTINUE 
NELTOT=@ 
C 
C BEGIN SIMULATION exuveceeeeeeeeee eee eee eeeeeeeeeeeeeeeseeeeeseeeeees 
C 
200 TIME=TIME+DT 
IF(TIME.GE.TIMMDM) THEN 


T IME=T IMMDM 
CRANK=T IME*RPM#6 .—90. 
CALL SMZ 
Cc 
C WRITE FLOW ELEMENT EXCHANGE #28 
Cc 


IF (NPRINT.£Q.1)THEN 
DO 2110 NZ=1,NZONES 
IF(ZVOL(NZ).£Q.@.)GO TO 2112 
WRITE(NZ,2101) CRANK,NELS(NZ),NP(NZ),NN(NZ), 
1 NNEVAP (NZ) ,NELMIX(NZ) ,DELTAP 
2101 FORMAT(1X,F6.2,2X,14,2X,14,5X,14,3X,14,2X,14,3X,G612.3) 
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NNEVAP (NZ)=@ 
NELMIX(NZ)=0 
2110 CONTINUE 


DELTAP=e. 
END IF 

Ceeseeeeese 

C 

C TIME TO EXIT? 

C 

2111 IF (CRANK .GT.CRKMAX)GO TO 300 
ENO IF 

C 

C MIX ZONES 

C 


205 DO 210 NZ=1,NA 
IF(NELS(NZ).LT.2) GO TO 210 
IF (TIME.GE. (ZTIME(NZ)+DTMIX(NZ))) CALL MIXING(NZ) 
210 CONTINUE 
GO TO 200 
30@ CALL EXIT 
END 
CeeeeeaKeeKKHKSSSSSSSKSSKSSTKSKKSKESKKEKSKAEKEKKAKEKEKEEEKEEEEEEEEEEEEESE 


Ceeeeeeeeeeee esse kk SKSHSSSSSSKSSSKTKSKSKSKSKSKSSSKEKSKSSSKSEEEKEESEEEEKES 


C 
SUBROUTINE SMZ 


C 
c 
C PURPOSE 

C 

€ COMPLETES PREVIOUS CYCLE. STARTS NEXT. 

C . CALLS MOM INPUT. CONTROLS FLOW OF 

C ELEMENTS TO THE SMZ°S. HANDLES CONSERVATION OF COMPONENT 
C MASS, ENERGY AND VOLUME. CALCULATES ZONE MIXING TIMES. 

C 

é 

C VARIABLES AND ARRAYS (SEE SMM) 

C 

SUBROUTINE SMZ 


DECLARATIONS AND COMMON BLOCKS 


Oanqn 


INCLUDE *SMMCOM. FOR’ 

INCLUDE °*SMZCOM.FOR’ 

PARAMETER(CCAL=. 02421725) 

DIMENSION ELMT(MAXELE, 4) , ELEMT(MAXELE, 6) 
DIMENSION NUM(NA,MAXELE) , TFMF (MAXELE) 
COMMON /ELEMT1/ ELEMT 

COMMON /ELEMT2/ ELMT 

COMMON /ELEMT6/ NUM, TFMF 


le stnts lS THE START OF CYCLE 1? 


Oa a 


IF (NCYC.EQ.@) THEN 
CALL INPUT(3) 
NCYC=1 
NELAIR=IFIX(ZMA/ELMM)+1 
GO TO 191 

END IF 
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C FINISH CYCLE 


c 
c 
C CALCULATE HEAT TRANSFER FOR EACH ELEMENT. 
C 
DO 10@ NZ=1,NZONES 
IF(NELS(NZ).LT.1)GO TO 100 
CALL QWALL(NZ) 
DO 5@ LIl=1,NELS(NZ) 
I=NUM(NZ, LI) 
Cc 
C UPDATE SOOT, NO, PREP, COMBUSTION. 
Cc 
IF((TIME-ELMT(1,4)).LT.DTKIN)GO TO 50 
CALL PROP(TIME,NZ,I) 
50 CONT INUE 
10@ CONTINUE 
Cc 


C UPDATE PREP AND COMBUSTION FOR ACTIVE AIR ZONE ELEMENTS 
C 
DO 105 LI=1,NELS(NA) 
I=NUM(NA, LI) 
DTPROP=T IME-ELMT(I,4) 
IF(DTPROP.LT.DTKIN)GO TO 105 
ELMT(I,4)=TIME 
CALL PREPUP(DTPROP,1I) 
CALL CMBUST(NA,I,2) 
105 CONTINUE 
C 
C CONSERVE VOLUME. CALCULATE NEW TEMPERATURES AND PRESSURE. 
C 
CALL VOL 
C 
Ceeeeeeeseeeesess 
C 
C UPDATE TOTALS 
Cc 
DO 110 NZ=1,NA 
TTBF (NZ )=TTBF (NZ )+ZMFBRN(NZ) 
110 CONTINUE 


C 

C TIME TO EXIT? 

Cc 
IF(CRANK.LE.CRKMAX) GO TO 152 
IF (NPRINT.EQ.4.OR.NPRINT.EQ.5)CALL OUTPUT(8) 
RETURN 

C 

C TIME TO WRITE OUTPUT? 

Cc 

150 IF(TIME.LT.(TIMEPR+DTPR)) GO TO 155 

TIMEPR=T IME 
CALL OUTPUT (2) 

Cc 

C TIME TO WRITE DISTRIBUTION? 

C 


155 IF(CRANK.LT.(CRANKD+CAD) .OR.NPRINT.EQ.2.OR. 
1 NPRINT.EQ.5)GO TO 190 
CRANKD=CRANK 
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CALL DISTRIB 
C 
C END OF CYCLE eeseees 
c 
Ceeeeeeeeeeeeeeeee eee eeeeaaeseseeeeseeesesereseseeeaess 
C 
C START NEW CYCLE eeee 
c 
199 CALL INPUT(3) 
NCYC=NCYC+1 
C 
C CALCULATE NET FLOWS IN EACH DIRECTION. 
c 
191 DO 200 NF=1,NFLOW 
FM(NF )=FM(NF )+DFM(NF ) 
DFM(NF)=0. 
FMV (NF )=FMV(NF )+DFMV(NF) 
DFMV(NF )=0. 
FMBF (NF) =FMBF (NF)+DFMBF (NF) 
OFMBF (NF )=@. 
208 CONTINUE 
DO 250 NF=1,NFLOW 
IF(ZVOL(NF).LE.@.) THEN 
NP (NF )=NELS(NF) 
NN(NF)=@. 
ELSE IF(FM(NF).GT.@.) THEN 
NP(NF)=IFIX(FM(NF )/ELMM) 
NN(NF)=® 
ELSE IF(FM(NF).LT.@.) THEN 
NP (NF )=2 
NN (NF )=IFIX(—FM(NF) /ELMM) 
ELSE 
NP(NF )=@ 
NN(NF)=0 
END IF 
25@ CONTINUE 


CALL FLOW 


EVAPORATE THE FUEL. ADD VAPOR ELEMENTS TO THE ZONES. 


Oa 0 


DO 308 NZ=1,NA 


CLEAN UP THE CLOSING OF A ZONE 


Qa 0 


IF(ZVOL(NZ) .LE.@..AND.NZ.NE.NA) THEN 
ZMEVAP (NZ+1 )=ZMEVAP(NZ+1 )+ZMEVAP (NZ) 
ZMVAP (NZ+1)=ZMVAP (NZ+1 )+ZMVAP (NZ) 
ZMEVAP(NZ)=0. 

ZMVAP (NZ)=0. 
GO TO 300 
END IF 


UPDATE EVAPORATION 


Oo Oo 


TMEVAP (NZ) =TMEVAP (NZ )+ZMEVAP (NZ) 
NNEVAP (NZ)=IFIX(TMEVAP (NZ) /ELMM)—IFIX((TMEVAP (NZ)— 
1 ZMEVAP (NZ) ) /ELMM) 
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ZMEVAP (NZ )=ZMEVAP (NZ)+ZMVAP (NZ) 
ZMVAP(NZ)=0. 


C ADD VAPOR ELEMENTS TO ZONES 


Cc 


IF(NZ.EQ.NA)THEN 
NELX=NELAIR 
ELSE 
NELX=NELS (NZ) . 
END IF 
IF (ZMEVAP(NZ).GT.ELMM.AND.NELX.GT.1) THEN 
CALL EVAP(NZ) 
ELSE 
ZMVAP (NZ )=ZMEVAP (NZ) 
END IF 


300 CONTINUE 


Cc 


C CALCULATE NEW OTMIX 


Cc 


OT=T IMMOM—T IME 
DO 400 NZ=1,NA 


IF(NELS(NZ).LT.@)NELS(NZ)=0 
IF(ZBETA(NZ).LE.@.)GO TO 400 
IF(NELS(NZ).LT.2)GO TO 400 
DTMIX(NZ)=1./(ZBETA(NZ) #NELS(NZ)) 
DT=AMIN1 (DT, DTMIX(NZ) ) 


420 CONTINUE 
RETURN 
END 


CeeeSee ee see ese SSS KSSH SH SKSHSSSSSS SS SSKSKS SHE SHEARS SESE SEEKER SAEEEs 


Cerra ee eeseKkKKKKSHSKHHHAKHERASAAKEKAKHRRREREREREKR EKER EKER eee EES 


gaaanananannannannnanananannanagangngnangaagagaagag 


SUBROUTINE SOOT(DTPROP,O2,1) — WANG MODEL 


PURPOSE 


TO CALCULATE THE FORMATION OF SOOT DUE TO PYROLYSIS OF 
FUEL VAPOR. 


METHOD 


THE SOOT FORMATION RATE IS CALCULATED VIA THE RELATIONS 

OF WANG,MATULA,AND FARMER DEVELOPED FOR SYNTHETIC FUELS. 
(20TH SYMPOSIUM ON COMBUSTION. THE COMBUSTION INSTITUTE, 
1981. PG. 1149.) 

IMPORTANT PARAMETERS ARE [HC], [02], AND TEMPERATURE. 


VARIABLES 


(SEE SMM) 

UFUELF — UNBURNED FUEL FRACTION 

FUELC — FUEL CARBON IN ELEMENT (g) 

HCCONC — UNBURNED FUEL CONCENTRATION, C2H2, G-MOLE/CC 
O2CONC — UNBURNED OXYGEN CONCENTRATION, G-MOLE/CC 
DSFDT — SOOT MASS FORMATION RATE, G/S 

MFORM = SOOT MASS FORMED THIS CALCULATION, G 

RUNIV = UNIVERSAL GAS CONSTANT (cal/gmole-K) 
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> 
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(SEE SMM) 


COMMENTS 


PRODUCTION OF MORE SOOT THAN THERE IS FUEL CARBON IN 
A GIVEN ELEMENT IS NOT ALLOWED. 


SUBROUTINE SOOT(DTPROP ,02,1) : 
INCLUDE °SMMCOM. FOR’ 

REAL MFORM 

DIMENSION ELEMT(MAXELE,6), ELMT(MAXELE, 4) 

COMMON /ELEMT1/ ELEMT 

COMMON /ELEMT2/ ELMT 
PARAMETER(RHO=1.8,RUNIV=1.98,CCAL=.0242) 


SOOT FORMATION RATE CALCULATIONS 


IF(ELEMT(I,2) .LE. 300.)GO TO 120 
UFUELF=1 .-ELEMT(I,3) 
FUELC=UFUELF* ELMM*CTOF—ELMT(I,3) 
IF (FUELC.LE.@. )FUELC=0. 
SV=RUNIV*ELEMT(I,2)/(P*CCAL*ELEMT(I,6)) 
HCCONC=UFUELF/(SV*WTFUEL) 
O2CONC=02/(ELEMT(I,6)*SV) 
TM=1800. 
IF(ELEMT(I,2).LE.TM) THEN 

GAMMA=0 . 


GAMMA=1. 
TGAM=1../ELEMT(1I,2)—1./TM 
END IF 
XCONC=1 . /(ELEMT (I ,6) *SV)—HCCONC—O2CONC 
DSFDT=SOOTC*5.55£16*EXP(—41800. /(RUNIV*ELEMT(I,2))— 
1 GAMMA# 481200. *TGAM/RUNIV) «((1.54*#HCCONC)**2.59)* 


2 (XCONC**.13)/(O2CONC#*.71) 


DSFDTMX=SOOTC#1.04E£13*EXP(—29700. /(RUNIV*ELEMT (1,2) )+ 
1 GAMMA# 3970. *TGAM/RUNIV)#((1.54*HCCONC)*##1.48)« 


2 (XCONC*#*.24) 


IF (DSFDT.GT.DSFDTMX )DSFOT=DSFDTMX 
SOOT MASS CHANGE 
MFORM=DSFDT sDTPROP *ELMMsSV 
IF(MFORM.LE.@.) GO TO 120 
IF(MFORM.LE.FUELC) GO TO 30 
MFORM = FUELC 
ELMT(I,3)=ELMT(I,3)+MFORM 
SOOT SURFACE AREA CHANGE 


ELMT(I,2)=ELMT(I,2)+3. *MFORM/(RHO*SOTSIZ) 


120 RETURN 


END 


Cee SHHSEHEHRSSSSESSEHEHSEKEEESTEKESSEKESEHRESSESEEHEKEKEKR SESE SEHR EESES 


Ceeeeeee esas SHSHKHSSHSHHESSSHHEHHSHHEHHEEEESHEEHEKSEEHE KEKE TESS 


Cc 


C SUBROUTINE SORT 1 





=2ig= 


Cc 

C PURPOSE 

C SORTS ZONE ELEMENTS INTO 3 GROUPS: THOSE CONTAINING FUEL 

C VAPOR, THOSE WITH SIGNIFICANT BURNED FUEL AND OTHER. FOR 

C ZONE NF OR NZ. 

C 

C VARIABLES AND ARRAYS (ALSO SEE SMM) 

C NEL1 — NUMBER OF ELEMENTS IN GROUP 1 

C NEL2 — NUMBER OF ELEMENTS IN GROUP 2 ; 

C NEL3 — NUMBER OF REMAINING ELEMENTS 

C NEXT1 — ARRAY OF ELEMENTS IN GROUP 1 

C NEXT2 — ARRAY OF ELEMENTS IN GROUP 2 

C NEXTS =— ARRAY OF OTHER ELEMENTS 

C  TFMFS — LOWER LIMIT FOR MASS FRACTION OF BURNED FUEL IN GROUP 2. 
C STOICHIOMETRIC TFMF EXCEPT FOR VERY LEAN ZONES WHERE 
C TFMFS IS SET TO LLIMT. 

C 


SUBROUTINE SORT1(NZ) 
INCLUDE °'SMMCOM.FOR’ 
INCLUDE *SMZCOM.FOR’ 
DIMENSION NUM(NA,MAXELE) , TFMF (MAXELE) 
DIMENSION NEXT1(MAXELE) ,NEXT2(MAXELE) ,NEXT3(MAXELE) 
DIMENSION ELEMT(MAXELE, 6) 
COMMON /ELEMT1/ ELEMT 
COMMON /ELEMT6/ NUM, TFMF 
COMMON /SORT/ NEL1,NEL2,NEL3,NEXT1,NEXT2,NEXTS 
NEL1=0 
NEL2=0 
NEL3=0 
- TFMFS=1./(1.+PHICON) 
IF (ZFMF(NZ).LT.TFMFS) TFMFS=LLIMT 
IF(NELS(NZ).LE.@)GO TO 500 
200 DO 400 L=1,NELS(NZ) 
L1=NUM(NZ,L) 
IF (TFMF(L1).GT.ULIMT ) THEN 
NEL1=NEL1+1 
NEXT1(NEL1 )=L 
ELSE IF(ELEMT(L1,3)*ELEMT(L1,1).GT.TFMFS) THEN 
NEL2=NEL2+1 
NEXT2(NEL2)=L 
ELSE 
NEL3=NEL3+1 
NEXT3(NEL3)=L 
END IF 
40@ CONTINUE 
500 RETURN 
END 
Ceeeee eee SSS SSKHKHEKKSSKSSEKSESR SSE KESH EKER EERE EEEEEE SE 
CeeeeeeeeS SSS HSSSKSEKESKSS SKEET KESESE KEKE KES SER SEK SEES ERE TESTES 
Cc 
C SUBROUTINE SORT2 
Cc 
C PURPOSE 
C SORTS ZONE ELEMENTS INTO 3 GROUPS: THOSE CONTAINING FUEL 
Cc VAPOR, THOSE WITH SIGNIFICANT BURNED FUEL AND OTHER. FOR 
c ZONE NFP1. 
c 
c 


VARIABLES AND ARRAYS (ALSO SEE SMM) 
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NEL4 -— NUMBER OF ELEMENTS IN GROUP 1 

NELS — NUMBER OF ELEMENTS IN GROUP 2 

NEL6 — NUMBER OF REMAINING ELEMENTS 

NEXT4 — ARRAY OF ELEMENTS IN GROUP 1 

NEXTS — ARRAY OF ELEMENTS IN GROUP 2 

NEXT6 -— ARRAY OF OTHER ELEMENTS 

TFMFS — LOWER LIMIT FOR MASS FRACTION OF BURNED FUEL IN GROUP 2. 
STOICHIOMETRIC TFMF EXCEPT FOR VERY LEAN ZONES WHERE 
TFMFS IS SET TO LLIMT. ; 


qaeao0ongngngnngdgaqnqgdagna 


SUBROUTINE SORT2(NZ) 
INCLUDE *SMMCOM. FOR’ 
INCLUDE ’SMZCOM. FOR’ 
DIMENSION NUM(NA,MAXELE) , TFMF(MAXELE) 
DIMENSION NEXT4(MAXELE) , NEXT5(MAXELE) , NEXT6(MAXELE) 
DIMENSION ELEMT(MAXELE, 6) 
COMMON /ELEMT1/ ELEMT 
COMMON /ELEMT6/ NUM, TFMF 
COMMON /SORTX/ NEL4,NELS,NEL6,NEXT4, NEXTS, NEXT6 
NEL4=@ 
NELS=0 
NEL6=@ 
TFMFS=1./(1.+PHICON) 
IF (ZFMF(NZ).LT.TFMFS) TFMFS=LLIMT 
IF(NELS(NZ).LE.@)GO TO 5ee@ 
202 DO 400 L=1t,NELS(NZ) 
L1=NUM(NZ,L) . 
IF(TFMF(L1).GT.ULIMT) THEN 
- NEL4=NEL4+1 
NEXT4(NEL4)=L 
ELSE IF(ELEMT(L1,3)*ELEMT(L1,1).GT.TFMFS) THEN 
NELS=NELS+1 
NEXTS(NELS)=L 
ELSE 
NEL6=NEL6+1 
NEXT6(NEL6)=L 
END IF 
42@ CONTINUE 
5@@ RETURN 
END 
OPEC ESESERPESESLOSSSOSLESE SESE SESS SESE S ESSE CECE CE CRESS CCS ES ECE CS CESS 


Ceee ee eee eee SST HST ST SSH TSTSTTSSST HST HTSHT SESH SEKS KEKE TEESE SS 


E 

C SUBROUTINE SPECNO 

c 

C PURPOSE 

C CALCULATES EQUILIBRIUM SPECIES CONCENTRATION NEEDED FOR 
¢ NO CALCULATION 

c 

C DESCRIPTION OF PARAMETERS 

C PARAMETER INPUT OUTPUT DESCRIPTION 

C 

C p YES NO PRESSURE (ATM) 

C 7 YES NO TEMPERATURE (K) 

C FR YES NO FUEL FRACTION OF BURNED PRODUCTS 
C U1 NO YES EQUILIBRIUM MOLE FRACTION 

c nis 


Sa — OF (NO) 
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U2 NO YES EQUILIBRIUM MOLE FRACTION 
— — — OF (0)*(N2) 
U3 NO YES K1=R1/(R2+R3) (SEE REPORT) 


SUBROUTINE SPECNO (P,T,FR,U1,U2,U3) 

COMMON/FULAR/CATOM, DEL, PSI ,PHICON 

COMMON/TABLES/A(2582) ,B(2592) ,C(2592) 

DIMENSION AP(6),AT(16) , APHI(27) 

DATA AP /1.,10.,30.,50.,75.,100./ 

DATA AT /1700.,1800.,1900. , 2000. ,2100. ,2200.,2300. ,2400.,2500., 
2600. ,2700. ,2800. ,2900. ,3000. , 3200. ,3500./ 


DAWA APHI /0.0,.2,94,.6,.8,.9,.95,1.,1.05,1.1,1.2,1.3,1.4,1.5, 
Woe. 20 .2.2),9--4-9.6,2.8,3.,3.2,50493.6,3.9,.4./ 

PA=P 

TA=T 

PHI=PHICON*FR/(1.@—-FR) 

PHIA=PHI 


IF(PA.LE.1.0)PA=1.2 

IF (PA.GE. 100. )PA=120. 
IF(TA.LE. 1700. )TA=1700. 
IF(TA.GE.3500. )TA=3500. 
IF(PHIA.LE.0.0)PHIA=0.0 
IF(PHIA.GE.4.0)PHIA=4.2 


[= 
IF(PA.LT.10.)GO TO 12 


~ T=2 


18 


28 


52 


IF(PA.LT.30.)GO TO 12 
I=3 

IF(PA.LT.58.)GO TO 10 
[=4 

IF(PA.LT.75.)GO TO 12 
T=5 

PA1=AP(1) 

PA2=AP(I+1) 


J=IFIX(PHIA/.2)+1 
IF(PHIA.LT..9)GOTO 20 
J=6 

IF(PHIA.LT.@.95)GOTO 20 
J=IFIX((PHIA-.95)/.05)+7 
IF(PHIA.LT.1.1)GOTO 20 
J=IFIX((PHIA-1.1)/.1)+10 
IF(PHIA.LT.1.6)GOTO 20 
J=IFIX((PHIA-1.6)/.2)+15 
IF(PHIA.LT.4.8)GOTO 20 
J=26 

PHI 1=APHI (J) 

PHI 2=APHI (J+1) 


Km IFIX((TA-1700.)/100.)+1 
IF(TA.GE.3000. .AND.TA.LT.3200. )K=14 
IF(TA.GE.3200. .AND.TA.LE.3500. )K=15 
TA1=AT(K) 

TA2=AT (K+1) 
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TU1=1 #4324) 8 16+K+1 

[U2=] #432+(J—-1) #164K+1 
1U3=1#432+(J—-1) #164K 

1U4=2] #432+J # 16+K 

1US=( 1-1) #432+J*16+K+1 
1U6=(I-1) #432+(J-1) #16+K+1 
1U7=( 1-1) #432+(J-1) #16+K 
1U8=(I-1) #4324) #16+K 


R=(—-PHI 1+PHI+PHI-PHI2)/(PHI2-PH11) 
S=(-TA1+TA+TA-TA2)/(TA2-TA1) 
V=(—PA1+PA+PA-PA2) /(PA2-PA1) 


H1=(1.4+R)*(1.4+S)*(1.4+V) 


H2=(1. 
H3=(1. 
H4=(1. 
H5=(1. 
H6=(1. 
H7=(1. 
H8=(1. 


-R)*(1 
-R)*(1 
+R) #(1 
+R)*(1 
-R)*(1 
-R)*(1 
+R) *(1 


+S) *(1 
.-S)#(1 
oS) (1 
+S) *(1 
.+S)#(1 
.-S)*(1 
.-S)*(1 


.+V) 
.+V) 
.+V) 
.-V) 
.-V) 
.-V) 
.-V) 


U1=0.125*(H1*A(1U1)+H2*A(1U2)+H3*A(1U3)+H4*A(1U4)+ 
&HS*A(1U5)+H6*A(1U6)+H7*A(1U7)+H8*A(1U8) ) 

U1=EXP (U1) 

U2=0.125*(H1*B(1U1)+H2*B(1U2)+H3*B(1U3)+H4*B(1U4)+ 
&H5*B(1U5)+H6«8(1U6)+H7 *B(IU7)+H8*B(1U8) ) 

U2=EXP (U2) 
- U3=0.125*(H1*C(1U1)+H2*C(1U2)+H3*C(1U3)+H4*C(1U4)+ 
&H5*C(1U5)+H6sC(IU6)+H7*C(1U7)+H8*C(1U8) ) 

U3=EXP (U3) 


RETURN 
END 
Cees ee eee eS KHHKEHHHESESAESKAKEA KEKE EKER RRR EEEES 


Ceeee ee ee eee eee KHHHHTHEAHEAKKHEEHASERETHAEHEK EKER RARER SESS ES 


Cc 


OF (02) 


c SUBROUTINE SPECO2 ; 

C 

C PURPOSE 

e CALCULATES EQUILIBRIUM SPECIES CONCENTRATION OF 

. OXYGEN MOLECULE IN BURNED PRODUCTS OF COMBUSTION 

C 

C DESCRIPTION OF PARAMETERS 

C PARAMETER INPUT OUTPUT DESCRIPTION 

¢ 

C p YES NO PRESSURE (ATM) 

C T YES NO TEMPERATURE (K) 

e FR YES NO FUEL FRACTION OF BURNED PRODUCTS 
c U4 NO YES EQUILIBRIUM MOLE FRACTION 
c 

c 


SUBROUTINE SPECO2 (P,T,FR,U4) 
COMMON/FULAR/CATOM, DEL, PSI,PHICON 
COMMON/TABLE6/D (2592) ,£(2592) 
DIMENSION AP(6),AT(16) ,APHI (27) 
DATA AP /1.,10.,30.,50.,75.,100./ 





rie 


DATA AT /1700.,1800.,1900. ,200@. ,2100. ,2200. ,2300. ,2400. ,2580., 
1 2600. ,2700.,2800.,2900. ,3000. ,3200. ,3500./ 
DATA APHI /2.0,.2,.4,.6,.8,.9,.95,1.,1.05, 


12 


! 


20 


58 


pee Op Ut IO: 
4 


1.1 
felon. C.2.,2.2,2-4,2.6,2.8,3.,3:2,5.44%,5.6,.3.834,./ 


PA=P 

TA=T 
PHI=PHICON*FR/(1.@-FR) 
PHIA=PHI 


IF(PA.LE.1.@)PA=1.2 
IF(PA.GE.100. )PA=100. 
IF(TA.LE.1700.)TA=1700. 
IF(TA.GE.3500. )TA=3500. 
IF(PHIA.LE.@.0)PHIA=0.2 
IF (PHIA.GE.4.0)PHIA=4.2 


[=] 

IF(PA.LT.18.)GO TO 1@ 
[=2 

IF(PA.LT.3.)GO TO 12 
I=5 

IF(PA.LT.5@.)GO TO 10 
[=4 

IF(PA.LT.75.)GO TO 12 
T=5 

PA1=AP(I) 

PA2=AP(I+1) 


JaIFIX(PHIA/.2)+1 
IF(PHIA.LT.@.9)GOTO 20 
J=6 

IF(PHIA.LT.@.95)GOTO 20 
JmIFIX((PHIA-.95)/.05)+7 
IF(PHIA.LT.1.1)GOTO 20 
J=IFIX((PHIA-1.1)/.1)+12 
IF(PHIA.LT.1.6)GOTO 22 
JmIFIX((PHIA-1.6)/.2)+15 
IF(PHIA.LT.4.@)GOTO 20 
J=26 

PHI1=APHI (J) 

PHI2=APHI (J+1) 


Km IFIX((TA-1700.)/100.)+1 
IF(TA.GE.3000..AND.TA.LT.3200. )K=14 
IF(TA.GE.3200..AND.TA.LE.3500. )K=15 
TA1=AT(K) 

TA2=AT(K+1) 


[Ui=] *4324+J*16+K+1 

[U2=1 #432+(J—1) #16+K+1 
[U3=] #432+(J—1)*16+K 

TU4=:1 643243 *16+K 

[US5=(I-1) #4324) *16+K+1 
IU6=( I=-1) #432+(J—-1) #16+K+1 
IU7=( 1-1) #432+(J—-1) *16+K 
[U8=(I-1 )*432+J*16+K 
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Res (—PHI 1+PHI+PHI-—PHI2)/(PHI2—PHI 1) 
S=(-TA1+TA+TA-TA2)/(TA2-TA1) 
V=(—PA1+PA+PA-PA2) /(PA2-PA1 ) 


Hi=(1.4+R)*(1.+S)#(1.4V) 
H2=(1.—R)*(1.4+S)*#(1.+V) 
H3=(1.—-R)*(1.-S)*(1.4V) 
H4=(1.4+R)*(1.-S)*(1.4V) 
H5=(1.4+R)*(1.4S)*(1.-V) 
H6=(1.—R)«(1.4+S)*(1.-V) 
H7=(1.-R)*(1.-S) *(1.-V) 
H8=(1.4+R)*(1.-S)*(1.-V) 


U4=0.125*(H1*D(IU1)+H2*D(IU2)+H3*D(IU3)+H4*D(1U4)+ 


&H5 *D(1US)+H6*D(1IU6)+H7*D(1U7)+H8*D(1U8)) 


U4=EXP (U4) 


RETURN 
END 


Cee eS SHSHHHHSHSHEHESESSESESEES HEHEHE RESEEEEHEEEEKEEEEEEKEEEEEEEEEEEEEEES 


Ceseesee eee ease sSSsSSSSSSSSSSSSSSSSTSSHHHHEHHEHHEEHEKEEHEEEEEEEEEEEEEEEEEEEES 


Cc 


qanggqgagaand 


% 


12 
22 
32 


42 


SUBROUTINE TABLE 


PURPOSE 
READS AND STORES A TABLE OF THERMODYNAMIC PROPERTIES OF 
UNBURNED MIXTURE AND BURNED PRODUCTS AS WELL AS EQUILIBRIUM 
SPECIES CONCENTRATION OF BURNED PRODUCTS. 


- SUBROUTINE TABLE 


COMMON/FULAR/CATOM, DEL, PSI,PHICON 
COMMON/TABLE1/UHTBL(96) , UCTBL(96) , UWTBL(96) , UHFTBL(96) 
COMMON/TABLE3/BHTBL (2688) , BCTBL(2688) , BWTBL( 2688) , BHFTBL(2688) 
COMMON/TABLES/A(2592) ,B( 2592) ,C(2592) 
COMMON/TABLE6/0(2592) ,£ (2592) 


READ(12,10)(UHTBL(I), I=1,96) 

READ(12,20)(UCTBL(I),I=1,96) 

READ(12,30) (UWTBL(I), I=1,96) 

READ(12,10)(UHFTBL(I) , 1=1,96) 
FORMAT (2X, 10F7.1) 

FORMAT (2X, 10F7.3) 

FORMAT (2X, 10F7.2) 


READ(12,10)(BHTBL(I), IJ=1, 2688) 
READ (12,20) (SCTBL(I), I=1,2688) 
READ(12,30)(BWTBL(I), I=1, 2688) 
READ(12, 10) (BHFTBL(I) , I1=1,2688) 
READ(12,40)(A(I), I=1,2592) 
READ(12,40)(B(I),I=1,2592) 
READ(12,42) (C(I), I=1, 2592) 
READ(12,40)(D(I),I=1,2592) 
READ(12,40)(E(1), I=1,2592) 
FORMAT (5(1£14.7,1X)) 

RETURN 

END 


CeeeeeseeSSSSSSSSSSSSSeSSSSSTTeSSeeSeseses Sees seseeseseeseesseaeseseeseseseesesesesse 


Ceseeeeeeeeseseseseeeseeeeeeeseeeeseeseeeeeeeeseeeesseseeeseseseseseeessesesesse 





VHQaqncnagagaaaqaanaqnadaandnaaadgaadaa 


gqqnqagaaaanaanaaadndnadaqaqaanqanandgagaa 


SUBROUTINE UTEMP 


PURPOSE 
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GIVEN P, H, FR, AND BGFR OF UNBURNED MIXTURE, CALCULATES T 


DESCRIPTION OF PARAMETERS 


PARAMETER 


TGUESS 
FR 
BGFR 
ENTHLP 
- 
ERMAX 





MAXITS 





N 


DENTIFICATION 


NZ 
WTBG 


REMARKS 
T.—eGrn 


FOR EXAMPLE: 


INPUT 


YES 
ES 
ES 
YES 
NO 

YES 


TES 


YES 


YES 
NO 


1) FOR PURE AIR 
2) FOR PURE FUEL VAPOR 


3) FOR A MIXTURE OF 


OUTPUT 


NO 
NO 
NO 
NO 
%ES 
NO 


NO 


NO 


NO 
MES 


10% FUEL VAPOR AND 


20% BURNED PRODUCTS WITH 
FUEL FRACTION OF ©.@8 AND 


78% AIR 


THEREFORE 


DESCRIPTION 


INITIAL GUESS FOR TEMPERATURE (K) 
SEE REMARKS 

SEE REMARKS 

ENTHALPY (CAL/G) 

CALCULATED TEMPERATURE (K) 
RELATIVE ERROR TOLERANCE (SEE 
SUBROUTINES UTEMP AND BTEMP) 
MAXIMUM NUMBER OF ITERATIONS (SEE 
SUBROUTINES UTEMP AND BTEMP) 
ELEMENT PROPERTY ARRAY 


NUMBER 
ZONE IDENTIFICATION NUMBER 
MOLECULAR WT OF BURNED GAS 


= FRACTION OF FUEL VAPOR IN THE 
MIXTURE 

m FUEL FRACTION OF BURNED PRODUCTS 
IN MIXTURE TIMES MASS FRACTION OF 
BURNED PRODUCTS IN THE MIXTURE, 
THEN, DIVIDED BY "“BGFR". 


sens 
FR=0.0 AND BGFR=1.@ 
FR=0 .@ AND BGFR=0.0 


FR=.20*.08/(.20+.70)=0.0155 AND 
BGFR=.20+.70=.90 
=@.0155 AND BGFR=0.90 


SUBROUTINE UTEMP (TGUESS,FR,BGFR,ENTHLP,T,N) 


INCLUDE ’SMMCOM.FOR’ 


DIMENSION ELEMT(MAXELE, 6) 
COMMON /ELEMT1/ ELEMT 


TsTGUESS 


DO 10 I=1,MAXITS 
CALL UTHRMO (P,1T,FR,BGFR,AHG,CSUBP, WT) 


TTOLD=T 


T=T+(ENTHLP—AHG) /(CSUBP) 
IF(ABS((T-TTOLD)/T) .LE.ERMAX)GOTO 20 


1@ CONTINUE 


CALL OUTPUT(9) 


2@ ELEMT(N,5)=CSUBP 


ELEMT(N,6)=3WT 
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RETURN 
END 


Cee eee eee eke SKK EHH KERER EERE RRR EEE SEER 


Cee SSS SSS SSSSSSHSSSK SSSR EKER ERE EE ESEEE 


DAOQDNDADADAANAANAANAAANNAAANAANDANAANANAAANARMAAIANDQAINDIAAAAAYVA YA 


SUBROUTINE UTHRMO 


PURPOSE 
CALCULATES THERMODYNAMIC PROPERTIES OF UNBURNED MIXTURE 


USAGE 
CALL UTHRMO (P,T,FR,8GFR,H,CP,WT) 


DESCRIPTION OF PARAMETERS 
PARAMETER INPUT OUTPUT DESCRIPTION 


P YES NO PRESSURE (ATM) 
he YES NO TEMPERATURE (K) 
FR YES NO SEE REMARKS 
BGFR YES NO SEE REMARKS 
H NO YES ENTHALPY OF MIXTURE (CAL/G) 
CP NO YES HEAT CAPACITY AT CONSTANT PRESSURE 
— —_— — OF MIXTURE (CAL/G K) 
WT NO ves MOLECULAR WEIGHT OF MIXTURE (G/MOLE) 
REMARKS . 
1.-BGFR = FRACTION OF FUEL VAPOR IN THE 
—— MIXTURE 
FR = FUEL FRACTION OF BURNED PRODUCTS 
a IN MIXTURE TIMES MASS FRACTION OF 
— BURNED PRODUCTS IN THE MIXTURE, 
— THEN, DIVIDED BY "“BGFR". 
a "BGFR" . 
FOR EXAMPLE: 
1) FOR PURE AIR FR=0.0 AND BGFR=1.® 
2) FOR PURE FUEL VAPOR FR=0.2 AND BGFR=0.2 
3) FOR A MIXTURE OF 
10% FUEL VAPOR AND 
20% BURNED PRODUCTS WITH 
FUEL FRACTION OF @.@8 AND 
70% AIR FR=.20*.08/(.20+.70)=0.0155 | AND 
BGFR=.20+.70=.90 
THEREFORE FR=0.0155 AND BGFR=0.92 


SUBROUTINE AND FUNCTION SUBPROGRAMS REQUIRED 
BTHRMO 


SUBROUTINE UTHRMO (P,T,FR,BGFR,H,CP,WT) 
COMMON/TABLE1/UHTBL(96) , UCTBL(96) , UWTBL(96) , UHFTBL(96) 
COMMON /FULAR/CATOM, DEL, PSI ,PHICON 

DIMENSION AT(8),APHI(12) , FCF(6) 

DATA AT /300.,520.,700. ,900.,1100., 1300. , 1500. ,1700./ 
DRPABAPHI/¢.¢,0.8, .9,1.0,1.1,1-2,1.5.2..2.5,3.,3.5,4./ 


_—_——__——————— Ceo 
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C THE FOLLOWING DATA IS GOOD FOR DIESEL (C10.8 H18.7) ONLY. 
C STANDARD ENTHALPY, 298K DATUM. 


Cc 


oan gN 0 


29 


DATA FCF/~9.1063,246.97,-143.74,32.329, .0518,-50.128/ 
DATA WTV/148.6/ 


PHI=FR*PHICON/(1.—FR) 
PHIA=PHI 

VA=1.~BGFR 

TA=T 


IF(PHIA.LE.0.@)PHIA=@. 
IF(PHIA.GE.4.0)PHIA=4.0 
IF(TA.LE.300.)TA=300. 
IF(TA.GT.170@.)GO TO 30 


ImIFIX((TA-300.)/200. )+1 
IF(TA.GE. 1500. )I=7 
IF(TA.LT.500. )I=1 
TA1=AT(I) 

TA2=AT (i+1) 


K=11 
IF(PHIA.GE.3.5)GOTO 20 
K=IFIX((PHIA~1.5)/.5)+7 


—IF(PHIA.GE.1.5.AND.PHIA.LT.3.5)GOTO 20 


K=6 
IF(PHIA.GE.1.2.AND.PHIA.LT.1.5)GOTO 20 
K=I FIX((PHIA-0.8)/.1)+2 
IF(PHIA.GE..8.AND.PHIA.LT.1.2)GOTO 20 
K=1 

PHI 1=APHI (K) 

PHI2=APHI (K+1) 


IU1=K*e8+1+1 
IU2=(K—-1) *#8+1+1 
[U3=(K—-1) #8+] 
IU4=K* 8+] 


R=(—-PHI 1+PHI+PHI-PHI 2) /(PHI2—PHI 1) 
S=(-TA14T+T-TA2)/(TA2—-TA1) 


H1=(1.+R)*(1.+S) 
H2=(1.-R)*(1.+S) 
H3e(1.-R)*(1.-S) 
H4m(1.4+R)*(1.-S) 


HU, 25*(H1*UHTBL(IU1)+H2*UHTBL(IU2)+ 


&H3sUHTBL(1U3)+H4*UHTBL(IU4) ) 


CPUs ,25*(H1*UCTBL(IU1)+H2*UCTBL(IU2)+ 


&H3sUCTBL(1U3)+H4*UCTBL(IU4) ) 


WTUse 25 (H1*UWTBL(IU1)+H2*UWTBL(1U2)+ 


&H3sUWTBL(1U3)+H4 *UWTBL(IU4) ) 


GO TO 428 
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3@ CALL BTHRMO (P,T,FR,HU,CPU,WTU,SVU) 
42 ST=T/1000. 


HV=(((FCF(4)/4.*ST+FCF(3)/3.)*ST+FCF(2)/2.)*ST+ 


&FCF(1))*ST-FCF(5)/ST+FCF(6) 


CPV=((FCF(4)*ST+FCF(3)) *ST+FCF(2)) *ST+FCF(1)+FCF(5)/(ST#ST) 
HV=1000. sHV/WTV 
CPV=CPV/WTV 


H=HU*BGFR+HV*VA 
CP=CPUsBGFR+CPV*VA 
WT=WTUeWTV/(WTUSVA + WTV*BGFR) 
RETURN 

END 


CeeeeeeKKKKKKKKKEREKKSSEKEKKS SEEKERS EERE SEE 


Ceeeee eee eee eS SKEKEKAEK AEE TEER REREKAAREKAEKAERARERARARERAEEEESE 


C 


C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 


SUBROUTINE VOL 


PURPOSE 


CALCULATES PRESSURE AND ELEMENT TEMPERATURES TO MEET 
TOTAL VOLUME CONSTRAINT. 


VARIABLES — SEE SMM 


ARRAYS — SEE SMM 


58 


60 


78 


_ SUBROUTINE VOL 


INCLUDE *SMMCOM. FOR’ 
INCLUDE *SMZCOM.FOR’ 
DIMENSION ELEMT(MAXELE,6) , SVOLD(MAXELE) , TNEW(MAXELE) 
DIMENSION NUM(NA,MAXELE) , TFMF(MAXELE) 
COMMON /ELEMT1/ ELEMT 
COMMON /ELEMT4/ SVOLD 
COMMON /ELEMT6/ NUM, TFMF 
PARAMETER(RBAR=1 . 9869 ,CCAL=. 02421725, GAMMA=1 .35) 
PNEW=P 
ITER=1 
TOTVOL=0. 
DO 5@ NZ=1,NZONES 
IF(NELS(NZ).LT.1)GO TO 52 
TOTVOL=TOTVOL+ZVOL (NZ) 
CONT INUE 
TOTVOL=TOTVOL+ZVOL (NA) 
DELP=PNEW-P 
VOLNEW=2 
VOLAIR=ZVOL (NA) * (PMDM/PNEW) «(1 ./GAMMA) 


DO 100 NZ=1,NZONES 

IF(NELS(NZ).LT.1) GO TO 100 

DO 70 LN=1,NELS(NZ) 
N=NUM(NZ, LN) 
R=RBAR/ELEMT(N, 6) 
DEN=1.-.5*R*DELP/(ELEMT(N,5)*#PNEW) 
TNEW(N)=(ELEMT(N,2)+.5*#DELP*CCAL*SVOLD(N)/ELEMT(N,5))/DEN 
VOLNEW=VOLNEW+TNEW(N) #R* ELMM/(PNEW*CCAL) 

CONT INUE 





10@ CONTINUE 
VOLNEW=VOLNEW+VOLAIR 
VOLERR=ABS (VOLNEW/TOTVOL-1. ) 
IF(VOLERR.LE.VERMAX) GO TO 142 
IF(ITER.GT.ITMAXV) THEN 
CALL OUTPUT(5) 
GO TO 142 
END IF 
PNEW=(VOLNEW/TOTVOL) *PNEW 
ITER=ITER+1 


GO TO 62 
C 
C UPDATE AIR ZONE ACTIVE ELEMENTS 
C 


14@ IF(NELS(NA).LE.@)GO TO 200 
DO 15@ LN=1,NELS(NA) 
N=NUM(NA, LN) 
R=RBAR/ELEMT(N,6) 
DEN=1.—.5*R*DELP/(ELEMT(N,5)*PNEW) 
ELEMT(N,2)=(ELEMT(N,2)+.5*DELP*CCAL*SVOLD(N)/ 


1 ELEMT(N,5))/DEN 
IF(ELEMT(N,3).LT.1.) THEN 


CALL UTHRMO(P,ELEMT(N,2),ELEMT(N,1), 


1 ELEMT(N,3),£LEMT(N, 4), ELEMT(N,5), ELEMT(N,6)) 
ELSE 
CALL BTHRMO(P,ELEMT(N,2),ELEMT(N,1), 
1 ELEMT(N,4),ELEMT(N, 5), ELEMT(N,6)) 
END IF 


SVOLD(N)=RBAR*ELEMT(N,2)/(P*CCAL*ELEMT(N, 6) ) 
15@ ~ CONTINUE 


200 DO 300 NZ=1,NZONES 
IF(NELS(NZ).LT.1)GO TO 300 


Cc 
C UPDATE PROPERTIES AFTER CORRECTING VOLUME 
C 
DO 25@ LN=1,NELS(NZ) 
N=NUM(NZ, LN) 
ELEMT(N,2)=TNEW(N) 


IF(ELEMT(N,3).LT.1.) THEN 
CALL UTHRMO(P,ELEMT(N, 2),ELEMT(N,1), 


1 ELEMT(N,3),ELEMT(N, 4), ELEMT(N, 5), ELEMT(N,6)) 
ELSE 
CALL BTHRMO(P,ELEMT(N,2),ELEMT(N,1), 
1 ELEMT(N,4), £LEMT(N,5), ELEMT(N,6)) 
END IF 


SVOLD(N)=RBAR® ELEMT(N, 2)/(P*CCAL*ELEMT(N,6)) 
250 CONTINUE 


580 CONTINUE 

400 DELTAP=DELP+100./P 
P=PNEW 
RETURN 
END 


Ceseeeee se eee Sek Sk SSS SSSSSSSSSSSSSSSSHSSSSESSSSSSSSTHSHE SHEESH SSTESSE SSS 
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APPRENO IX °C 


STOCHASTIC MIXING MODEL DETAILS 


C.1 Slow Reaction Chemistry 


Dime requirement for including the effect of turbulent fluctua- 
tions in modeling slow reaction rates can be demonstrated using a simple 
second order reaction: (see Section 2.2.1 for nomenclature) 


kK 


a,X,* a 2s products Gale) 


aXo 


Equations (2.9) and (2.10) reduce to: 


oo 


. a 25 
w= kp (pa,)  (pa5) (C.2) 
a, T fexp(-£°/7) (C.3) 

Ke = Ae exp t : 
where: 

po,= p,/W, po,= p_/W., 0 = PW/RT 
Hefte 

t t 
a, ae a, = | 


Equation (C.2) becomes: 


: rr : +77 (C.4) 
ee Ke? Sao) = Bl (PW/R) 5,5, exp[ Ee j . 
Applying a Reynold's decomposition with: 
om t an f -_ t 
fee tata Ga '= 0.7 0 Cab = One O 


] 1 1 
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mesults in: 


gt 


3 
tT 2 = t a 1 = 1 
(PW/R) (o,+ 0, )(o,+ d) expl-E,/(T+T )] (Ca5) 


: =r 
W = A. Clear) 


Following the expansion scheme of Borghi [39], by applying 
series expansions for exp(x) and (1+x)* and time averaging, Equation 


(C.5) may be rewritten as: 























aoe (PW/R)* 4 [-E°/T] + Xx 
f 0,95 xn e/T] nk (C26) 
where: 
t tf D Q p Q t tf t 7 t ft 7 
Bs 0,0 mt a T o T o T o,0 
ee Ae ieee : Cowie et Mir é.(P +0 yf 1 és 2]+P eg 
a. 0 T° mea ice | Rox 
- ' t q t ’ t 3 
- th 0, ae "2 | T 
a(t te eee (Cah) 
- To, is 3 3 qT? 
2 
and: 
n 
= — ! —_ 
P = y = kK a ies 5 (Ee/T) 
a (n-k)!£ (k-1)!]7k 
ies (o.72) (o,71). 2.6 (Spt 1 +n) 
n n! 


Equation (C.6) is identical to the rate of reaction expression written 

in terms of local mean properties, but multiplied by a correction fac- 

tor, X. This correction term is exact, assuming that pressure fluctua- 
tions and changes in molecular weight are not significant and that 


e777 )<1. 
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When turbulent fluctuations go to zero the value of X goes to 1. 
Terms containing products of fluctuation terms are dependent on the 
correlation of these fluctuations and X may be greater or less than one 


as a result of these correlation terms. If the activation energy Ee is 
high or the mean temperature T is low, Ee will increase very rapidly 
with n while 7 decreases with n. This results in a correction term 
very different from one when slow reactions or low mean temperatures 
exist. For reactions with low activation energy or high mean tempera- 
tures the value of X is very nearly one and mean temperatures and con- 
centrations may be used to calculate reaction rates with reasonable 
accuracy. 

fgemena.e 10 Simple methods for incorporating the effect of turbu- 
lent fluctuations on slow reaction chemistry into a computational react- 
ing-flow- model. Two approaches, probability density function (PDF) 
models and stochastic models have been used with some success in partic- 
ular applications. The PDF approach uses a joint PDF to describe the 
chemical, thermodynamic and flow properties. This PDF contains all the 
information required to describe the reactive flow. Working from the 
basic turbulent flow conservation equations a single equation for this 
joint PDF can be derived. Using a Monte Carlo solution method, Pope 
[40] was able to solve this equation for some very simple geometries. 
The complexity and unsteadiness of diesel combustion makes this approach 
BM@eractical for our application. Stochastic mixing models provide a 


less complete, but more computationally efficient method of dealing with 


this problem. 
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C.2 The Random Coalescence Model 

In order to model more complex chemistry and include the effect of 
turbulent fluctuations within reasonable computational limits some com- 
promises must be made in dealing with the flow details. The use of 
stochastic phenomenalogical models has gained broad-acceptance for 
steady flow chemical reactors, especially when some details of the flow 
and mixing are already known. 

The development of these models has occurred gradually. Pratt [41] 
provides an excellent overview of this development. Danckwerts [42] and 
Zweitering [43] introduced the concept of "population balance" modeling 
in which the flow is described as an ensemble of fluid particles. Entry 
of reactant particles into the reactor is called a "birth" event and 
exit from the reactor is a "death" event. The time a particle spends in 
the reactor from birth to death is the particle "residence time", Two 


types of mixing may occur in these models. 


1. Macromixing or backmixing is the large scale mixing 
of elements of different "ages" within a flow. It is typical 
Srecerecirculating flow. At any point within the flow parti- 
cles have a distribution of ages. Macromixing is often char- 
acterized by a residence time distribution (RTD) which refers 
to the distribution of particle ages at exit. Macromixing 


does not consider mixing on a molecular level. 


2. Micromixing or stream mixing refers to the mixing of 


particles on a molecular level. 


Until the coalescence and dispersion model proposed by Curl [1], 
early applications of these concepts were limited to the extremes of 
perfect micromixing or no micromixing and perfect macromixing or no 


macromixing. Two examples of these are: 
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1. A plug flow reactor (PFR) in which groups of parti- 
cles that enter together stay together (no macromixing). 
These groups of particles are either homogeneous on a molecu- 
lar level (perfectly micromixed) or unmixed on a molecular 


level. 


2. A perfectly sttirred reactor (PSR) where the flow is 
homogeneous in terms of particle age distribution (perfectly 
macromixed), and either homogeneous or unmixed on a molecular 


level. 


Curl's model allowed for finite rate micromixing. His model as- 
sumed that initially segregated parcels are continuously fed into a 
perfectly stirred reactor (perfectly macromixed) having a constant par- 
cel population. Randomly selected pairs of parcels are mixed on a mole- 
cular level (coalesced) according to a prescribed mixing rate and then 
separated again into two parcels of equal average intensive properties 
(dispersed). Finite rate batch chemistry proceeds continuously in each 
parcel during the time interval between mixings. Curl derived a differ- 
ential equation based on this process to describe the concentration 
probability density function. Monte Carlo solutions of this equation 
for perfectly stirred reactors, plug flow reactors with finite rate 
micromixing, and series combinations of plug flow and perfectly stirred 
reactors have gained widespread use. [44,45,46] In our application 
various zones within the flow are assumed to be perfectly stirred reac— 
tors (perfectly macromixed) and finite rate micromixing within these 
zones is achieved using this technique. 

The mixing rate specified in Curl's model represents the number of 
Dairs Of parcels mixed per unit time or the reciprocal of the character- 


istic micromixing time. An expression for the mixing rate, g(t), was 
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derived by Corrsin in an analysis of the exponential decay of concentra- 
tion fluctuations in isotropic turbulence. [47] Despite Corrsin's 
rather restrictive assumptions, his results have been shown to work for 
more general reactive flows as long as the mixing rate is adequately 
large. [48,49] 

For a single phase turbulent reacting flow with constant diffusiv- 
ity and density, the species conservation equation, Equation (2.2), in 


indical notation is: 


op 00 
m m 2 °C 


Applying Reynold's decomposition and time averaging, assuming homogene- 


Ons lsotropic turbulence, this becomes: 


dp 
m °C 
ee = Ce 
ae On (C.9) 
where: 
= ? 
Pm : Pm i Pm 


Subtracting (C.9) from (C.8), multiplying by a and again time averag- 


ing results in: 


5 ne 1 
dp dp dp 


m 
oo -2p | ( = Gos ) t 20. 6 KC 110) 


3 
oO 


m 





Por elscOeropiec turbulence: 


we dp dp 


=O = 3 ( — ) 


ee ee Cian 
OX. OX . ox 
J J 





=—20U= 


Pore! huctuations in concentration: 











a dp 
eC 2 m \2 
ave eee aoe ] (cae) 
is analogous to the Taylor microscale: 
5 t 
u 
2 o2 2 
he = [ tee. it a | 
where: 
2 
T 
“3 oC 
A 
m 
Substituting these expressions into Equation (C.10) yields: 
t i? 
dp p 
m m Ci 
Ae 6v 2 + 20, Pn CC. 3) 
T 
Considering only the effect due to mixing: 
ae "2 
dp p “5 
m m Z 
Ame Ser BP, CCe a 
es 


This differential equation represents an exponential decay of the spe- 


cies density turbulent variance: 
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Te 2 
Pn (t) = Pye exp(- pt) (Cats) 


Although the coalescence/dispersion model is not intended to represent 
the details of the actual mixing process it does predict this same expo- 
nential decay. 

Following the above analysis, the mixing rate for our coalescence/ 
dispersion model may be expreessed in terms of physical turbulent flow 


properties: 


6v Ju. 2 3 # ae C hep 
g(t) = —= = 6v ae re et aes > (CPG) 


Me Alea 

where L is equal to the subgid scale length. For our analysis, turbu- 
lent viscosity, Lop » and the subgrid scale characteristic length are 
Peeniaved as part of KIVA's multi-dimensional solution so that the 
mixing rate of each stochastic mixing zone may be calculated by the MDM. 
With a scaling factor of 50.0 included in Equation (C.16), a value’of C 


B 


near unity best reproduces the MDM results. 
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APPENDIX D 


NASA PROGRAM INPUT 


Pe Equilibrium Data Input 

Program SMM requires tables of composition and thermodynamic pro- 
perties for the burned fuel mixture in order to calculate the thermody- 
namic state of elements, NO production and oxidation, and soot oxida- 
tion. For high temperatures, the burned gas mixture is assumed to be at 
equilibrium. For temperatures below 1700K, thermodynamic properties are 


calculated assuming that the mixture composition is frozen at 1700K. 

The NASA Equilibrium Code [50] is used to generate tables of composition 
and properties as a function of temperature (300K-3500K), pressure (1atm 
-100atm), and total equivalence ratio (0-4.0). Changes to the NASA Code 
and supplementary programs are listed in APPENDIX D.2. Standard enthal- 
py with a 298K datum is used for all calculations. Thermodynamic pro- 
perties calculated are: standard enthalpy, specific heat at constant 
pressure, molecular weight and heat of formation at 298K. Compositions 
calculated are: Ui, U2, U3, Ki, K2, [06], [OH], and [CO]. (See Equation 


3.16) The diesel fuel used is C Running command files NASA1, 


tore eee 
NASA2, NASA3, NASAHA, NASAYB, TABLE1, TABLE2 AND TABLE3, in that order, 
will generate the NASA Tables, file TBL1T7.DAT. Subroutine BTHRMO cal- 


culates the thermodynamic properties of burned elements and the burned 


gas fraction (BGFR) of unburned elements by interpolation in the NASA 
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Tables. 

subroutine UTHRMO calculates the thermodynamic properties of ele- 
ments containing a mixture of unburned fuel vapor and burned gas. 
(BGFR<1.) An unburned element is assumed to consist of equilibrium 
burned gas (BGFR), whose properties are calculated by Subroutine BTHRMO, 
and unburned fuel vapor, whose properties are calculated using empirical 
expressions. Coefficients for calculating fuel vapor enthalpy and spe- 


cific heat are from Reference [16]. 


U.2eeOn WAH Code 


C*** NASA.FOR UPDATE KHEKKKKHKKHKKKKKEKKEKEEE MLS 12/83,AdB 6/85 KHEKKKEXX 
DIMENSION ZEXTRA(10), YOUT(10,13) 
COMMON /SH/SENSH (13) ,ENTLPY 
CHR KK KKK KKRKKKKKKKREKKKKKKRKKKKKKKEKEKRE MLS 1.27635 AJB 6/ BOR RRR KEK KEE 
DATA ZEXTRA/4YHCO2 ,Y4HH20 ,4YHCO ,4HH2 ,4HO2 ,4HN2 ,4HNO , 
& 4HO , 4HN ,4HOH / 
C RRR KREKKRKKRKKEKKKKKKKEKKE KEKE KKRKERKEERE MLS 12/83, AJB 6/ BSR RRRRERE 
IF(CHFROZ) THEN 
CALL CHFRZN(NS, EQRAT) 
GO TO 4 
END IF 
IF(.NOT.THMON)GO TO 4 
CALL SHCALC(NS,NPT) 
DO 910 I=1,NPT 
WRITE(10,900) PPP(I), TTT(I), EQRAT, ENTLPY(1),SPHEAT(I),WM(I), 
1 SENSH(T) 
OGOweemeAT (1X, Wad0.1,1710.1,1F10.2,1F12.1,1F10.3,1F10.2,1F 12.1) 
910 CONTINUE 
C RK KKKKKKKKEKKRKKKK KERR RRRKEREKREER MLS 12/ 83. AJB 6 / BOK RRR RRRRKEKRER 
IF (CHFROZ.OR.THMON)GO TO 3000 
DO 1003 K=1,10 
DO 1002 I=1,NS 
IF (SUB(I,1).NE.ZEXTRA(K)) GO TO 1002 
DO 1001 I2=1,NPT 
YOUT(K,12)=EN(I ,12)/TON (12) 


1001 CONTINUE 
GO #0 &003 
1002 CONTINUE 
1003 CONTINUE 
C 


DO 1009 I=1,NPT 
WRIG2(11,1110) PPP(L), TIT(1), BQRAT, (YOUT(K,I), K=i, 
WRITE(12,1120) PPP(1), TIT(I), \SQRAT, (YOUT(K,I), K=7, 
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1009 CONTINUE 
C 
melOmmenrmATCIX, 1F10,1,1F10.1,1F10.2,6(2X,G12.5)) 


impo OemenMAT(IX,1F10.1,1F10.1,1F10.2,4(2X,G12.5)) 
C¥¥*® CHFRZN FOR %¥ XK RX RRR K KEK K RK ERK KEK KHER K HER KEKE KK KHER RK KHER KEKE 


SUBROUTINE CHFRZN(NS,EQRAT ) 


PUR POSE : 

TO CALCULATE PROPERTIES OF BURNED MIXTURE WHOSE 
GGMPOSITION IS FROZEN AT 1700K. 

INTENDED TO BE USED AS A SUBROUTINE OF 
TheeNeSA CODE. 


ARRAYS 
HFORM - HEAT OF FORMATION AT 298K(cal/g) 
H - STANDARD ENTHALPY(cal/g) AT 298K DATUM 
CP - SPECIFIC HEAT(cal/g-X) 


C2). ©) GiIeea@) ©) Gl Geer) CO) (Gurcs Co 


SUBROUTINE CHFRZN(NS,EQRAT ) 

DOUBLE PRECISION COEF ,S,EN,ENLN ,HO,DELN,DELH 

DOUEDE PRECISION HSUM,SSUM,CPR,DLVTP,DLVPT ,GAMMAS 

COMMON/ POINTS/HSUM(13),SSUM(13),CPR(13),DLVTP(13),DLVPT(13), 

1 GalminS (13),P(26),T52)5V (13),PPP(13) ,WM(13),SONVEL(13), 

2) tee 3) , VLM(13) , TOTN( 73) 

COMMON / SPECES/COEF (2,7 ,300),S(300) ,HO(300) , DELN (300) , DUMMY (300), 
| 9 300 513) , BNLN (300) ,A( 20, 300) ,SUB(300,3),IUSE(300) , TEMP(150,2) 
R=1.9872 

NPT=1 

The298.15 

K=2 

HFORM=0. 


mone. THE HEAT OF FORMATION IS THE SAME AT ALL TEMPERATURES SINCE 
THE COMPOSITION IS FROZEN BELOW i700K. 


C2 Ci C2 C2 


DO 400 J=1,NS 
HFORM=HFORM+(((( (COEF (K,5,Jd)/5.)*TT+COEF (K,4,J)/4.)*TT 
1 4CGer ee 3,J)/3. )*TI+COEF(K,2,J)/2. )*TT+COEF(K,1,J)+ 
2 eG@Hae.6.J)/TT)*EN (J NPT )*TT*R 
400 CONTINUE 
DO 500 NT=1,8 
TT=100.+NT*200. 
H=0. 
CP=0. 
DO 100 J=#1,NS 
K=1 
Me(TT.LE.1000.) K=2 
KK=0 
iPeCcOnn ke ld').NE.O.)GO TO 75 
KK =K 
K=1 





C 
C 


C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
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IF (KK.EQ.1)K=2 


15 Petit  (CGOEF(K,5,J)/5.)*TI+COBF(K.4 J )/4.)*TT+ 
1 COEF (K,3,J)/3.)*TT+COEF(K,2,J3)/2. )*TT+COEF(K,1,J)+ 
2 COEF (K,6,J)/TT )*R*TT*EN (J ,NPT ) 


CP=CP+((((COEF(K,5,J)*IT+COEF(K,4,J))*TT+ 
1 COEF (K,3,J))*TT+COEF(K,2,J))*TT+COEF (K,1,J))*R*EN(J ,NPT) 
100 CONTINUE 
WRITE(10,900)PPP(NPT) ,TT,EQRAT,H,CP,WM(NPT ) ,HFORM 
500 CONTINUE : 
Peer Ones erOn 1,F10,2,F12.1,F10.3,F10.2,F12.1) 


RETURN 
END 
XXX Shae ALC FOR KH KHKKHHK HK KKH KKH HK HHH HHH KKH HHH HHH H KKK HHH HKHKHKHKKKKE 
SUBROUTINE SHCALC(NS,NPT) 
PURPOSE 
CALCULATES HEAT OF FORMATION BASED ON 298K DATUM FROM 
STANDARD OR ASSIGNED ENTHALPY AS CALCULATED IN THE NASA 
EQUILIBRIUM CODE. INTENDED TO BE USED AS A SUBROUTINE OF 
THE NASA CODE. 
ARRAYS 
SENSH - HT OF FORMATION AT 298K FOR MIXTURE COMPOSTION 
AT BURNED TEMPERATURE AND PRESSURE (CAL/G) 
DELH - SPECIES HEAT OF FORMATION AT 298K (CAL/G) 
SUBROUTINE SHCALC(NS,NPT) 
DOUBLE PRECISION COEF,S,EN,ENLN ,HO,DELN 
DOUBLE PRECISION DELH 
COMMON/ SPECES/COEF (2,7 , 300) ,S(300),HO(300) ,DELN (300) ,DUMMY (300), 
1 EN (300,13) ,ENLN (300) ,A( 20, 300) ,SUB(300,3) ,IUSE(300) , TEMP(150,2) 
COMMON /SH/ SENSH (13) ,ENTLPY (1 3) 
DIMENSION DELH(300) 
R=1.9872 
TT=298.15 
DO 100 J=1,NS 
K=2 
50 DELH (J )=((( (COEF (K,5,J)/5.) *TT+COEF (K,4,J)/4.) *TT+COEF (K, 3,J)/ 


1 pes Or (K,2,J)7 2, )*1T COEF (K,1,J )+COEF(K,6,J)/TT 
100 CONTINUE 
DO 300 N=1 ,NPT 
SENSH(N )=0. 
DO 200 J=1,NS 
D=DELH (J )*EN (J ,N )*TT*R 
SEN SH (N )=SENSH (N ) +D 
200 CONTINUE 
300 CONTINUE 


RETURN 

END 
C¥EX NASA1.COM 4% 4% HHH HHH HHH HK KKK RHR RK KR KKK RHE RRR RK KKK ERK ERK ERK EK RE 
$! COMMAND PROCEDURE TO RUN NASA 


$! 





$ ON WARNING THEN EXIT 

$ ON CONTROL Y THEN EXIT 

$! 

$ DEFINE FOROO3 [BROWN.NASAJNL; 

$ DEFINE FOROOY [BROWN .NASA JNASA.DAT 
$ DEFINE FOROOS [BROWN.NASA ]NASA1.INP 
$ DEFINE FOROO6 [BROWN .NASAJNL; 

$ DEFINE FORO10 [BROWN .NASA]NASA1.OUT 
$1 

$ RUN [BROWN .NASAJNASA 

$! 

> DonT 

CxX*¥% NASA1.1INP KEK KK KK RRR KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKE 


REACTANTS 


C 10.8 Hero ( 100. —oooOe Ge Iend> =F 
69 , 
N 1.561760 .41959 AR.009324C .000300 100. BeOme G295. 150 
WAMELIST 
$INPT 2 
m= .PRUE. 
P=60. 


BRATIO=,.TRUE. 

eee 250, 9, O,1.1,1.2,1.5,2.0,2.5,3.0,3.5,4.0 
T=1700. 

KASE=4 

GRWSPT=.FALSE. 

CHFROZ=.TRUE. 


SEND 
STOP 
Cx¥* NASA2.COM KKH KKK HKK HHH KK HKKH KKK KKH KH KKK KKK KKK KKK KHKHKKHKHKKHKKKKKKKKKKKKE 
$! COMMAND PROCEDURE TO RUN NASA 
$! 


$ ON WARNING THEN EXIT 

$ ON CONTROL Y THEN EXIT 

$! 

$ DEFINE FOROO3 [BROWN.NASA ]NL; 

$ DEFINE FOROO4Y [BROWN .NASA JNASA.DAT 

$ DEFINE FOROOS [BROWN .NASA JNASA2. INP 

$ DEFINE FOROO6 [BROWN .NASA INL; 

$ DEFINE FORO10 [BROWN.NASA JNASA2.OUT 

$1 

$ RUN [BROWN .NASA]NASA 

$1! 

® EXIT 

Cx** NASA2. INP KHEKHHHHHHH HHH HHH HHH KKK KKK KKH KKK KKH KRKRHKKKRKKKRKRKRKKRKRKRKRKRKRKKKRE 
REACTANTS 

Ceres H 18.7 100. -53570. G298.15 F 
.69 

N 1.561760 .41959 AR.009324C .000300 100. -28.2 G298.15 O 
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NAMELIST 
$INPT 2 
TP=.TRUE. 
Emiience710..20.,30.,60.,100. 
ERATIO=.TRUE. 
Peace 63, -45.5,.65.7 .<0,.85, .9 
Maem 1000., 1900. ,2000. ,2100.,2200., 2300. ,2400.,2500.,2600., 
2700. , 2800. ,2900. , 3000. , 3200. , 3500. 
KASE=1 
TRNSPT=.FALSE. 
CHFROZ=.FALSE. 


$END 
STOP 
Cx*X NASA3.COM KHEKHK KKK KKH KKH HHH KKK KKH HH KH HH HH HHH KKK KKK KKK KKH KHKKKEKK 
$1 COMMAND PROCEDURE TO RUN NASA 
$1 


$ ON WARNING THEN EXIT 

$ ON CONTROL Y THEN EXIT 

$1 

$ DEFINE FOROO3 [BROWN.NASA]NL; 

$ DEFINE FOROOY [BROWN .NASA JNASA.DAT 

$ DEFINE FOROOS [BROWN.NASA ]JNASA3.1INP 

$ DEFINE FOROO6 [BROWN .NASA ]NL; 

$ DEFINE FORO10 [BROWN.NASA]NASA3.0OUT 

$! 

$ RUN [BROWN.NASA NASA : 
$! 

SAK, 

CxX*X NASA3.INP KH HHH HH HK HHH HHH HHH HHH HHKH HHH HK HHH KKK HKRHRHR HHH HKRHKHHKRHKRHKRKRKRKHKRKRKRKKKEE 


REACTANTS 


o.8 H 18.7 100. -53570. L298.15 F 
69 
N 1.561760 .41959 AR.009324C .000300 100. -28 .2 G298.15 0 
NAMELIST 
$INPT2 
TP=.TRUE. 


PantoeO., 20.,30.,00.., 100. 

ERATIO=.TRUE. | 

eee POO e sr ie ls lacy ts. 55,1.5,1.(5,2-0,2.25,2.5,2.75,3-0,3.5,4.0 

eer oo0 1900.,2000,,2100,, 2200, ,2300..,2400.,2500.,2600., 
Porc o00n. , 2900. ,3000., 3200. , 3500. 

KASE=1 

TRNSPT=.FALSE. 

Chr nOZ= FALSE. 


$END 
STOP 
C xXx NASAYA .COM KH KKH HHH H HHH HHH HH HH HHH HHHHKHHKHHHK HHH KHKRKHKRKHKKHKKHKRKKRKKKRKKE 
$! COMMAND PROCEDURE TO RUN NASA 
$! 


$ ON WARNING THEN EXIT 
$ ON CONTROL Y THEN EXIT 





$! 

$ DEFINE 
$ DEFINE 
$ DEFINE 
$ DEFINE 
$ DEFINE 
$ DEFINE 
$! 
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FOROO3 [BROWN .NASA]NL; 

FOROOY [BROWN .NASA]NASA .DAT 
FOROO5 [BROWN .NASA]JNASAYA.INP 
FOROO6 [BROWN .NASA JNL; 

FORO11 [BROWN .NASA JNASHYA1.OUT 
FORO12 [BROWN .NASA JNASHA2.OUT 


$ RUN [BROWN.NASA]NASA 


$! 
$ EXIT 


C¥¥¥ NASAYA INP 4% % HERE K EKER KEKE KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KKK 


REACTANTS 


C 10.3 
69 


N 1.561760 .41959 AR.009324C .000300 


NAMELIST 
$INPT2 


He Tote? 


100. SBS OTO.s e9O.lon an 


100. Gs 6298.15 70 


TP=.TRUE. 


Pa ..; 


Meroe DO.,/5., 100. 


ERATIO=.TRUE. 


eee 04.0, .9,-95,1.0,1.05,1.1,1.2,143,1.4,1.5,1.6 

Pron, 1000,,1900.,2000. ,2100. ,2200. , 2300. , 2400. , 2500. ,2600.,2700., 
B80. , 2900. , 3000. , 3200. , 3500. 

KASE=1 

TRWer b=) FALSE. 

CHFROZ=.FALSE. 


THMON=.FALSE. 
TRACE=1.E-20 


$END 
STOP 


C¥¥X NASAYB COM ¥X HHH KHER RHR KK ERE HE KEE EK KKH KKK EEK KEK EHH KEKE RHE 


$! 
$! 


COMMAND PROCEDURE TO RUN NASA 


$ ON WARNING THEN EXIT 
$ ON CONTROL Y THEN EXIT 


$1 

$ DEFINE 
$ DEFINE 
$ DEFINE 
$ DEFINE 
$ DEFINE 
$ DEFINE 
$! 


FOROO3 [BROWN.NASA]NL; 

FOROOY [BROWN .NASA JNASA .DAT 
FOROOS [BROWN .NASA JNASAYB.INP 
FOROO6 [BROWN .NASA JNL; 

FORO11 [BROWN.NASA JNAS4B1.OUT 
FORO12 [BROWN .NASA JNAS4B2.OUT 


$ RUN LBROWN.NASAJNASA 


$! 
$ EXOT 


C¥¥*® NASAYUB INP %¥ XXX XK EH HHH KEK HHH KKK KEE HERR RR KKK RRR KK KK KEKE 
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REACTANTS 
e10.8 He oy 100. a5 35 Osman inc9 Ol 5 eee 


69 


N 1.561760 .41959 AR.009324C .000300 LOO: meOse C290 15780 


NAMELIST 


C 


$IN 


Ble 


ie=.TRUE. 


Pier Oss Oe, 0s, 15+, 100. 
ERATIO=.TRUE. 


ete 2.0 .2.2,2.4,2.6,2.8,3.0,3.2,3-4,3-6,3.8,4.0 
Tai COs S00, 1900. ,2000. ,2100. ,2200. , 2300. ,2400. , 2500. , 2600. ,2700. 


»2800. , 2900. , 3000. , 3200. , 3500. 


KASE=1 
TRNSPT =.FALSE. 
CHFROZ=.FALSE. 


THMON=.FALSE. 
TRAC E=1.E-20 


SEND 


STOP 
C¥*¥X TABLE. FOR ¥¥ ERR RRR EKKKKKKRKKK KKK KK KEK KEK KKK KKEKKK KKK EKKEKK KK KKERKE 


C THIS PROGRAM CALCULATES TABLE COEFFICIENTS FROM NASA DATA 
C FOR TEMPERATURES BELOW 1700K WHERE THE CHEMISTRY IS FROZEN. 
IT SHOULD BE THE FIRST RUN INPUT INTO TBL1T7.DAT. 


C 
C 


C 
C 


100 


901 
910 
920 
930 


KEK 


PROGRAM TABLE1 
DIMENSION H(96),CP(96) ,WM(96) ,SH(96) 
OPEN (UNIT=3, FILE='[BROWN.SMM ]JTBL1T7 .DAT', STATUS='NEW' ) 
OPEN (UNIT=10, FILE=' [BROWN.NASA JNASA1.0UT', STATUS='OLD' ) 
DO 100 N=1,96 
READ(10,901) X1,X2,X3,H(N),CP(N),WM(N),SH(N) 
CONTINUE 
WRITE(3,910) (H(N),N=1,96) 
WRITE(3,920) (CP(N) ,N=1,96) 
WRITE(3,930) (WM(N) ,N=1,96) 
WRITE(3,910) (SH(N),N=1,96) 
CLOSE (UNIT=3) 
CLOSE (UNIT=10) 
STOP 
PORMAT(1X,2F10.1,F10.2,F12.1,F10.3,F10.2,F12.1) 
FORMAT (2X,10F7.1) 
FORMAT (2X,10F7.3) 
FORMAT(2X,10F7.2) 


END 
TA BLE2.FOR KKK KKKHKHKHKHKH HHH KK KKK KKKKKKKK KKK KK KK KK KKKKKKKKKKKKKEKE 


C THIS IS THE SECOND PROGRAM FOR PROCESSING NASA TO TABLE DATA. 


C 


IT IS FOR BURNED PRODUCTS THERMO DATA. T>1700K. 
PROGRAM TABLE2 
DIMENSION H(24,7,16),CP(24,7,16),WM(24,7,16),SH(24,7 ,16) 





| 296 


OPEN (UNIT=3, F 


ILE='( BROWN .SMMITBLIT7 .DAT', STATUS='OLD' ’ 
1 &CCESS="APPEND 


lak 
") 
ILE='( BROWN .NASAJNASA2.OUT', ST 
ILE 1 





OPEN (UNET=10, ATUS='OLD' ) 
OPEN (UMIT=11, ='( BROWN .NA 1SA IWASA3 .OUT', ATUS='OLD" ) 
DO 100 I=i,9 
DO 100 J=1,7 





| DO 100 X=1,16 
READ(10, 901) Xi, X2,X%3,H(1 J ,K),CP(I ,J,K) , wears J ,X), 
1 SURE ST A) 
100 CONTINUE 
DO 200 I=10,24 
DO 200° J=1,,7 
DO 200 K=1,16 
Ree) (11,901) X1,X2,X3eH(I ,J,K),CP(L,J,K) ,.WM(I,J,K), 
1 SH(L J ,K) 
200 CONTINUE 


Mm erG3 970) (C(CH(1,J,K);K=1,175) ,1=1,24),J=1,7) 
WRITE(3,920) (((CP(L,J,K),K= jis) ei ay 7 
WRITE(3,930) (( (WM(I,J,K),K=1,16),I=1,24),J=1,7) 
WRITHG3,910) (((SH(I,J,K),K=1,16) ,r=1,24) ,J=1,7) 


CLOSE (UNIT=3) 
CLOSE (UNIT=10) 
CLOSE (UNIT=11) 
STOP 
901 FORMAT(1X,2F10.1,F10.2,F12.1,F710.3,F10.2,£12.1) 
910 FORMAT(2X,10F7.1) 
920 FORMAT(2X,10F7.3) 
930 FORMAT(2X,10F7.2) 
END 
PROGRAM TABLE3 
DEAMPNSTON A(27 ,0,16)9B(27,6,15),C(27,5,16) ,D(27,6,15), 
© G27, GyiP6)», n(27 , 6716) 
REAL XX,K1 ,K2,K3 
OPEN (UNIT=3, FILE='(SROWN.SMMITBLIT7.DAT’, STATUS='OLD', 
1 ACCESS='APPEND' ) 


OPEN (UNIT=10, FILE=' (BROWN .NASA INAS4A1.0UT', STATUS=' wicieieomne 
OPEN (UNIT=11, FILE='( BROWN .NASA INAS'A2 .OUT', STATUS='OLD' ) 
OPEN (UNIT=12, FILE=' (BROWN NASA INAS'31.0UT', STATUS='OLD' ) 
OPEN (UNIT=13, FILE="( BROWN .NASA INAS'B2.0UT', STATUS='0LD' ) 


K3=4,.1E13 
DO 100 Vs 5 
YO 100 J=i ,6 
DO 100 ‘: ie 
READ(10, Bi Riel »X2 pO 2 , MO , MOO , XA2, X02, XN2 
READ( 11,902) X1,X2,X3,XNO,X0, XN, XOH 
a(i iJ, K)= ALOG(XNO) 
XX =XO0*XN2 
B(I ,J ,K)=ALOG( XX) 
Ki =(7 .62+13)*EXP(-38000./T) 
K2=(1 .5E+9)*EXP(-19500./T) 
KK=K1*XN2*XO/ (K2*KN*XO2+K 3*XN*XOH ) 
C(I ,J,K)=ALOG(KX) 








D(I ,J,K)=ALOG( X02) 
E (I ,J,K)=ALOG(XOH) 
F(I ,J ,K)=ALOG(XCO) 
100 CONTINUE 
DO 200 I=16,27 
DO 200 J=1,6 
DO 200 K=1,16 
Henle, 901) Xl, 1,2, XcO2, X20), xCO , XH2, XO2. XN? 
READ(13,902) X1,X2,X3,XNO,XO,XN, XOH 
A(I ,J,K)=ALOG(XNO) 
XX =XO ¥XN2 
Bila) =ALOG( XX) 
K1=(7.16E+13)*EXP(-38000./T) 
K2=(1.5E+9)*EXP(-19500./T) 
KK =K 1*XN2*XO/ ( K2*XN *XO 2+K 3*XN *XOH ) 
C(I ,J ,K)=ALOG( KK) 
D(I,J,K)=ALOG( X02) 
E (I,J ,K)=ALOG( XOH) 
F (I ,J,K)=ALOG(XCO) 
200 CONTINUE 
eanines ga) (( (ACI ,J,K) ,K=1,16),1=1,27),J3=1,6) 
ViMepcseaOl) (((B(L,J,K),K=1,16),1=1,27) ,J=1,6) 
imines 10) (((C(1,J,K),K=1,16),1=1,27),J=1,6) 
ete 3,910) (((D(L,J,K),K=1,16) ,I1=1,27),J=1,6) 
Wom Pens. 910) (((E(L,J,K),K=1,16),1=1,27),J=1,6) 
Weber os. 910) (((F(L,J,K),K=1,16) ,1=1,27),J=1,6) 
CLOSE (UNIT=3) 
CLOSE (UNIT=10) 
CLOSE (UNIT#=11) 
CLOSE (UNIT=12) 
CLOSE (UNIT=13) 
STOP 
901 FORMAT(1X,2F10.1,F10.2,6(2X,G12.5)) 
902 FORMAT(1X,2F10.1,F10.2,4(2X,G12.5)) 
910 FORMAT(5(1E14.7,1X) ) 


END. 
CREKKRKKKKRERKEKKRKEK KERR KEKE KRKRKKRKRKKRKEKE KEK RK ER KREK RK KEKE KK KKRKKR KK 
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APPENDIX E 


CHANGES TO KIVA FORTRAN CODE 


CRE RKEREEEEEEX SVM INPUT AND NRL MODE XK EH EEK EEK ER KEELER KEE EER HERES 


*T DEFINE .29 

CHEK KKK EK KKK KKK HK HK KE KH KEE KKK EHH EK KH EK EK HK KEK KEE KKK EK EE EK KEE KEKE RK KEK EES 
cet + FeVA UPDATE DECK 

C +++ MODIE PSD POR GENERATING INPUT TO STOCHASTIC MIXING MODEL BY ALAN 
C +++ BROWN, MIT, 121185. FURTHER MODIFIED FOR USE ON NAVAL RESEARCH 

C +++ L&8, WASHINGTON VAX/CRAY SYSTEM. 

C 

© USE*Or INPUT VARTASLE LPR: 

C LPR=1 LONG PRINT 

C LPR=2 MDMOUT (OUTPUT FOR SMM) 

© Grr=3 “PLOTDAT (GRAPHICS OUTPUT) 

C LPR=4 MDMOUT AND PLOTDAT 

C LPR=0 NONE OF THE ABOVE 

C 


C 


EEEEEREREKKE KK RHEE KEKE EK EEK EK KKEKKRE KEK KRKRKRKEKKKREKKEKKKKKKKKEKRKEKEKKKEE 


*D,COMD.7,8 


PARAMETER (NV=1200,LNXPY P=60,LNSP=12,LNRK=4 ,LNRE=6 ,NPAR=1000, 
feleP=40 , LCHOP=25 ,LVAP=67 ,NZ4DM=10) 


*1 ,COMD.25 


COMMON /LC8/ AAA8(1),BMV(NV) ,QCOMB(NV), QWALL(NV) ,DMEVAP(NYV), 
1 TMF BRN (NZMDM) , TMEVAP (NZMDM) , TQCOMB (NZMDM) , TOWALL (NZMDM), 

2 ZMOLD(NZ4DM) , ZMLOLD (NZMDM) , ZMVOLD (NZMDM) , ZMBFO(NZMDM) , 

3 ZVYOLO(NZMDM) , TIMMDM ,NCALL,ZZZ8 


2 VE. 1,2 


PROGRAM KIVA 

OPEN (UNIT =45F ILE="MDMOUT' ,STATUS='NBW' ) 
OPEN (UNIT =5 ,PIDE="ITAPE' ,STATUS="0LD' ) 
OPEM (UNIT =7 ,F ILE='RDUMP" ,STATUS='OLD' ) 
OPEN (UNIT=8 ,FILE='"WDUMP' ,STATUS='NEwW' ) 
OPEN (UNIT =9 ,FILE="PLOTDAT' ,STATUS=' NEW' ) 
OPENWCUNIT=12,PILE={'KiVAOUT' ,STATUS="NEW' 


@ , GEA. 29, 30 


BP (WAK.GT.O.AND.T.GE.TIIGN) CALL CHEM 
IF (NRE.EQ.6.AND.T.GE.TIIGN) CALL CHMQGM 


*D, BEGIN .5,16 
*D , BEGIN .19 ,59 


NWLCM=LOC (ZZZ1 )-LOC (AAA1 )+1 
DO 10 N=1 ,NWLCM 

10 AAA1(N )=0. 
NWLCM=LOC (ZZZ2)-LOC (AAA2)+1 
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DO 20 N=1,NWLCM 
20 AAA2(N)=0. 
NWLCM=LOC (ZZZ3)-LOC (AAA3)+1 
DO 30 N=1,NWLCM 
30 AAA3(N)=0. 
NWLCM=LOC (ZZZ4 )—-LOC (AAAY)+1 
DO 40 N=1,NWLCM 
4O AAAYN(N)=0. 
NWLCM=LOC (ZZZ5)-LOC (AAA5)+1 
DO 50 N=1,NWLCM 
50 AAA5(N)=0. 
NWLCM=LOC (ZZZ6)-LOC(AAA6)+1 
DO 60 N=1,NWLCM 
60 AAA6(N)=0. 
NWLCM=LOC (ZZZ7 )-LOC (AAA7)+1 
DO 70 N=1,NWLCM 
70 AAAT(N)=0. 
NWLCM=LOC (ZZZ8 )—-LOC ( AAA8)+1 
DO 80 N=1,NWLCM 
80 AAA8(N )=0. 
*I ,CHEM.15 
BMV(I4)=0. 
QCOMB(I4)=0. 
*I ,CHEM.18 
SPDV=SPD(I4,1) 
SIEBEG=SIE(I4) 
*I ,CHEM.81 
BMV(I4)=VOL(I4)* (SPDV-SPD(1I4,1)) 
QCOMB(I4 )=VOL (14 )*RO(I4 )* (SIE (I4)-SIEBEG) 
*D , CHEMEQ.1,133 
*I ,CHMQGM. 33 
SIEBEG=SIE(I4) 
*D ,CHMQGM.125 a 
*I ,CHMQGM. 143 
QCOMB(I4)=QCOMB(I4)+VOL(I4)*RO(I4)* (SIE(I4)-SIEBEG) 
*D,CHOP.18 
*D ,CHOP.21 
*D ,CHOP.233 
*I ,EVAP.116 
DMEVAP(1I4)=DMTOT (14) 
*I ,FULOUT.9 
IF((LPR.NE.3).AND.(LPR.NE.4))GO TO 100 
*D ,FULOUT.18,19 
100 IF(LPR.EQ.1) CALL LNGPRT 
2D, INJECT.70,72 
130 WRITE(12,200) T,NCYC 
CALL EXIT 
xD, WAWALL.11 
DO 181 I=1,NX 
Tete (1). 80.0.) GO TO 1801 
SIEOLD=SIE (I4) 
*D , LAWALL. 260 
180 QWALL(I4)=VOL(I4)*RO(I4)* (SIE(I4)-SIEOLD) 
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1801 T4=I 4+] 
181 CONTINUE 
C ERK KKK KKK KKK HK KKK KKH LEK KKK HK KKK HK KKK KH HH KKK HERE KEKE KEK KKK KK KKK KKK KEKE KE 


*DECK MDMOUT 


e 
C SUBROUTINE MDMOUT 
C 
C PURPOSE 
c 
Eg TO BE INCLUDED AS A SUBROUTINE IN KIVA. WRITE NECESSARY 
c MDM DATA TO A TAPE FOR PROCESSING AND USE AS INPUT TO A 
ce STOCHASTIC MIXING MODEL FOR PREDICTING EMISSIONS. 
C 
Cc 
SUBROUTINE MDMOUT 
C 
C DECLARATION STATEMENTS AND COMMON BLOCKS 
C 
*CALL COMD 
“ehh PART 
DIMENSION CELLM(NV),CMV(NV),CML(NV) ,CMBF(NV),CVOL(NV),CTEMP(NV), 
1 CQCOMB(NV),CBMV(NV),CMEVAP (NV) ,CQWALL(NV),CNO(NV), 
2 CAMU(NV) 
REAL MLIQ(NV) 
PARAMETER (CPE=2. 389E-08) 
DIMENSION ZLLIMT(NZMDM) , ZULIMT (NZMDM) 
DIMENSION ZM(NZMDM) ,ZML(NZMDM) , ZMV(NZMDM) , ZMBF (NZMDM) , 
1 ZMFBRN(NZMDM) , ZMEVAP (NZMDM) ,ZVOL(NZMDM) , ZTEMP (NZMDM), 
2 ZQWALL(NZMDM) , ZAMU(NZMDM) ,ZQCOMB(NZMDM) ,ZFMF(NZMDM), 
3 ZBETA(NZMDM) , ZNO(NZMDM) 
Ces, (Zeb iet),L=1, NZDM) /.2,.16,.12,.1,.08, .06,.04, .02, 
i 7005.0.0/ 
Pare (Amman is) b=! NZMDM)°/1.0,.2,.16,.12,.1,.08, .06,.04, 
1 .02,.005/ 
C 
CPE 2D =C PE*FAC2D 
c 
ce THESE CALCULATIONS ASSUME A HYDROCARBON REACTION 
e MECHANISM WITH THE FOLLOWING CHEMICAL SPECIES INVOLVED: 
C 1-DIESEL, 2-02, 3-N2, 4-CO2, 5-H20, 6-H, 7-H2, 8-0, 9-N 
ec 10-OH, 11-CO, 12-NO 
C 
IF ((T-TIMMDM) .LT.1.0E-05.AND.NCALL.GT.0)GO TO 200 
¥ 
PAV=0. 
NC =0 
EC 


IF (NCALL.EQ.0O)THEN 
CA1INJ=ATDC+T1INJ*RPM¥*6. 
WRITE(4,999) (NAME(N) ,N=1,10),CA1INJ ,RPM 

END IF 

poo rOnmar 1 0Ac./7 ,1X,F6.1,2X,F6.1) 
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c 
C SUM ALL FLUID PARTICLES IN A CELL FOR THE CELL FLUID MASS 
c 
DO 50 I4=1,IJKVEC 
MLIQ(I4)=0. 
50 CONTINUE 
LeaNvipeiGgs.0)GO TO 101 
DO 100 N=1,NP 
T4=IT4P(N) 
MLIQ(1I4)=MLIQ(14)+PI4O3R*PARTN(N )*RADP(N )**3 
100 CONTINUE 
C 
C CALCULATE ALL CELL PROPERTIES AT START OF INJECTION AND EVERY 
C DTMDM. 
C 
101 DO 150 I4=1,IJKVEC 
IF (F(I4).LT..9) GO TO 150 
NC =NC +1 
CVOL(NC )=FAC2D*VOL(I4) 
CELLM(NC )=C VOL (NC )*RO(I4) 
CML (NC )=MLIQ(14)*FAC2D 
CMV (NC )=CVOL(NC )*SPD(I4,1) 
CMBF (NC )=CVOL(NC)*(.273*SPD(I4,4)+.112*SPD(I4,5)+ 
1 SPD(I4,6)+SPD(I4,7)+.059*SPD(I4,10)+.429*SPD(I4,11)) 
CTEMP (NC )=CELLM(NC)*TEMP(I4) 


C 
© FRESSURE IN DYNES/CM**2 
C a 
PAV=PAV+P(I4) 
C 
C ENERGY PROPERTIES MUST BE CONVERTED FROM ERGS TO CAL. 
C 


CMEVAP(NC )=FAC2D*DMEVAP (14) 

DMEVAP(I4)=0. 

CQWALL (NC )=C PE2D *QWALL (I 4) 

CQCOMB (NC )=CPE2D*QCOMB (14 ) 

CAMU(NC )=AMU(I4)*CVOL(NC) 

C BMV (NC )=FAC2D* BMV (14) 

CNO(NC )=CVOL(NC )*SPD(I4, 12) 
150 CONTINUE 


C 
C CONVERT PRESSURE UNITS TO ATM. 
C 
PAV=PAV/ (NC *1.01325E+06) 
C 
C INITIALIZE ZONE PROPERTIES. 
C 
DO 160 NNZ=1,NZMDM 
ZM(NNZ)=0. 
ZML(NNZ)=0. 
ZMV (NNZ )=0. 
ZNO(NNZ)=0. 


ZM BF (NNZ )=0. 
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ZVOL(NNZ)=0. 
ZTEMP (NNZ )=0. 
ZAMU(NNZ)=0. 
ZMF BRN (NNZ )=0. 
ZMEVAP(NNZ)=0. 
ZQWALL (NNZ )=0. 
ZQCOMB(NNZ)=0. 
160 CONTINUE 
NCELL=NC 
Come 250 
C 
C CALCULATE AND UPDATE CUMULATIVE ZONE PROPERTIES EVERY MDM 
i CYCLE. 


CG 
200 NC=O 
DO 240 I4=1,IJKVEC 
Peri tT..9)GO TO 240 
NC =NC+1 
c 
C TO CALCULATE FMF 
c 
CELLM(NC )=VOL(I4)*RO(I4)*FAC2D 
CMV (NC )=VOL(I4)*SPD(I4,1)*FAC2D 
CMBF (NC )=VOL(I4)*FAC2D*(.273*SPD(IT4,4)+.112*SPD(I4,5)+ 
1 SPD(I4,6)+SPD(1I4,7)+.059*SPD(I4,10)+.429¥*SPD(I4,11)) 
c 
C CUMULATIVE CELL PROPERTIES 
cg 


CBMV(NC )=FAC2D*BMV(I4) 
CMEVAP (NC )=FAC2D *DMEVAP (14) 
DMEVAP(I4)=0. 
CQCOMB(NC )=C PE2D *QCOMB(I4) 
CQWALL (NC) =CPE 2D *QWALL (I4) 
240 CONTINUE 
S 
C INITIALIZE CUMULATIVE ZONE PROPERTIES. 
C 
DO 245 NNZ=1,NZMDM 
ZMF BRN (NNZ)=0. 
ZMEVAP(NNZ)=O. 
ZQWALL (NNZ)=0. 
ZQCOMB(NNZ)=0. 
245 CONTINUE 


NC ELL=NC 
C 
C CALCULATE ZONE PROPERTIES 
C 


250 DO 300 NC=1,NCELL 
PECCEEEMINC) =E@.0.)GO TO 300 
FMF=(CMV (NC )+CMBF (NC ) )/CELLM(NC ) 
DO 260 NNZ=1,NZMDM 
LF ( (FMF .GE.ZLLIMT(NNZ) ).AND. (FMF.LT.ZULIMT(NNZ) ) )THEN 
NNNZ=NNZ 
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GO" TO. 270 
END IF 
260 CONTINUE 
270 IF ((T-TIMMDM) .LT.1.0E-05.AND.NCALL.GT.0)GO TO 280 
Cc 
C INSTANTANEOUS ZONE PROPERTIES 
Cc 
ZM (NNNZ )=ZM(NNNZ)+CELLM(NC ) 
ZML (NNNZ )=ZML (NNNZ )+CML (NC) 
ZMV (NNNZ )=ZMV (NNNZ)+CMV(NC) 
ZMBF (NNNZ )=ZMBF (NNNZ )+CMBF (NC) 
ZNO(NNNZ )=ZNO(NNNZ)+CNO(NC) 
ZVOL (NNNZ )=Z VOL (NNNZ ) +C VOL (NC) 
ZTEMP (NNNZ )=ZTEMP(NNNZ )+CTEMP(NC ) 
ZAMU (NNNZ ) =ZAMU (NNNZ )+C AMU (NC) 
Ec 
C CUMULATIVE ZONE PROPERTIES 
C 
280 ZMF BRN (NNNZ )=ZMFBRN (NNNZ)+C BMV(NC) 
ZMEVAP (NNNZ )=ZMEVAP (NNNZ ) +CMEVAP (NC) 
ZQWALL (NNNZ )=ZQWALL (NNNZ )+CQWALL (NC) 
ZQC OMB (NNNZ ) =ZQCOMB (NNNZ ) +CQCOMB (NC ) 
300 CONTINUE 


C 
DO 350 NNZ=1,NZMDM 

G 

C SUM CUMJLATIVE PROPERTIES 

C 
TMF BRN (NNZ )=TMFBRN (NNZ )+ZMFBRN (NNZ) 
TMEVAP (NNZ )=TMEVAP (NNZ )+ZMEVAP (NNZ) 
TQWALL(NNZ)=TQWALL (NNZ )+ZQWALL (NNZ) 
TQCOMB (NNZ )=TQCOMB (NNZ )+ ZQCOMB (NNZ) 
IF ((T~TIMMDM) .LT.1.0E-05.AND .NCALL.GT.0)GO TO 350 

C 


C CALCULATE ZONE MEAN FMF,TEMP AND BETA EVERY DTMDM 
G 
IF (ZM(NNZ) .EQ.0.) THEN 
ZFMF (NNZ )=0. 
ZBETA (NNZ)=0. 
ZTEMP (NNZ )=0. 
GO TO 350 
END IF 
IF (CHARL.EQ.O.)THEN 
ZBETA (NNZ)=0. 
GO TO 340 
END IF 
ZBETA (NNZ)=ZAMU(NNZ)/(ZM(NNZ )*CHARL** 2) 
340 ZEMF (NNZ )=(ZMV (NNZ )+ZMBF (NNZ ))/ ZM(NNZ) 
ZTEMP (NNZ )=ZTEMP(NNZ )/ZM(NNZ) 
350 CONTINUE 
C 
IF ((T-TIMMDM ) .LT.1.0E-05.AND.NCALL.GT.0)GO TO 800 
c 
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TIMMDM=T 
WRITE(4 ,904 )TIMMDM, PAV 
904 FORMAT(1X,E13.5,1X,F8.4) 
WRITE(4 ,906) (ZM(K) ,K=1,NZMDM) 
WRITE (4,906) (ZML(K),K=1 ,NZMDM) 
WRITE (4,906) (ZMV(K) ,K=1,NZMDM) 
WRITE (4,906) (ZMBF(K),K=1,NZMDM) 
WRITE (4,906) (ZTEMP(K) , K=1,NZMDM) 
WRITE (4,906) (TQCOMB(K),K=1 ,NZMDM) 
WRITE(4 ,906) (TMEVAP(K) ,K=1,NZMDM) 
WRITE (4,906) (TQWALL(K),K=1,NZMDM) 
WRITE (4,906) (TMFBRN(K) ,K=1,NZMDM) 
WRITE (4,906) (ZNO(K),K=1,NZMDM) 
WRITE (4,906) (ZVOL(K) , K=1,NZMDM) 
WRITE (4,906) (ZFMF(K),K=1,NZMDM) 
WRITE(4 ,906) (ZBETA(K) ,K=1,NZMDM) 
906 FORMAT(1X,6E13.4) 


C 
IF (NCALL.EQ.0)GO TO 800 
C 
C ZERO CUMULATIVE PROPERTIES AFTER WRITING (EVERY DTMDM), 
C BUT NOT AT START OF INJECTION. 
C 


DO 700 NNZ=1,NZMDM 
TMF BRN (NNZ)=0. 
TMEVAP(NNZ)=O. 
FQCOMB(NNZ )=0. 
TQWALL(NNZ)=0. 
700 CONTINUE 
Ee 
800 NCALL=NCALL+1 
RETURN mae 
END 
*MOVEDK MDMOUT: LNGPRT 
CK RK KKK RKKKKKKRKKRK KK KEK KR KKK KKK KKKKEK KKK KEK KKEK KER KEKE KKEKKEKKKAKREKKRERE 
*D ,NEWCYC.6 
*D ,NEWCYC.53,56 
100 IF(MOD(NCYC,10).EQ.0) WRITE(12,200) NCYC,CRANK,T,DT,NS, 
1 NVS,GRIND,IDSP(1),TSPM(1),PM,AVP,PGS ,IDDT 
IF(T.GE.TIINJ.AND.(LPR.EQ.2.0R.LPR.EQ.4)) CALL MDMOUT 
*D ,NEWCYC .60 
*D ,NEWCYC.69,76 
*D ,NEWCYC .85 ,86 
CiaieL EXIT 
*D, PFIND.239,241 
GALL EXIT 
*D,PRES.106,108 
200 WRITE(12,900)T,NCYC,NSUB 
Gale EXIT 
*I ,RINPUT. 4 
DATA (RERF(K),K=1,21) / 0., .04434039, .08885599, .1337269, .1791435, 
feeeaei2el ie 7eloeT, . 3200583, .3708072, . 4226803, .4769363, .5341591, 
2 5951161, .6608545, .7328691, .8134198, .9061939,1.017902,1. 163087, 





-27/9- 


Bees o5904,2. / 


C¥¥*¥¥*¥**X DTESEL FUEL MOD *¥%¥ 444% XH HHH KKK HK KKK EHH EK KK KKK KH KH KK EKER EKER 


C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
~ 


C2 Ca Gr Ga") 


UPDATE TO CONVERT PHYSICAL PROPERTIES OF FUEL IN KIVA 
LePULESHE 610.13 .7 


ENTHALPY DATA FROM HEYWOOD/LORUSSO/ROSSINI: INTERPOLATED 
ABOVE 1500K. FOR DIESEL MIX. 


REMAINING DATA FROM VERGAFTIK PP. 284-285: PROPERTIES FOR 
DODECANE ARE USED FOR LATENT HEAT, VAPOR PRESSURE, 
meni tT {SURFACE TENSION, AND DENSITY. 


FOR DODECANE: TCRIT=659K 
SURTEN AT 298K = 25.04 (CGS) 
LIQUID DENSITY AT 298K = .7452 


+++ 


+++ INPUT LABELS TO IDENTIFY THE SPECIES 


+ 


+ 


D,RINPUT.8 ,23 


DATARS (IDSP(N),N=1,12) /8H DIESEL,8H O250H Ne, 
1 8H COZ, oH H20 , 8H lal 
2 8H H2,8H 0) alls N, 
3 8H OH , 8H CO, 3H NO/ 


+++ 


+++ ENTHALPIES OF THE PURE SPECIES ARE FROM THE JANNAF TABLES. 

+++ INTERVALS ARE T=100(N-1), 

+++ UNITS ARE KCAL/MOLE. 1=DIESEL(C10.8H18.7), 2=02, 3=N2, 4=CO2, 

+++ 5=H20, 6=H, 7=H2, 8=0, 9=N, 10=OH, 11=CO, 12=NO 

+++ 

Pars (Ne)),N=1,51) /0.0,1.24,2.49,6.98,13.13,20.73,29.6, 
Pomeeenio,02.14,74.5,87 .41,100.81,114.63,128.82,143.36, 
Meee 3,100.97 ,201.5,216.04, 230.58, 245.11,259.65, 
et co. 2,505.20, 317 -6, 332.33, 346.87, 361.41 ,375.95, 
390.48,405.02,419.56,434.09, 448 .63,463.17,477.7, 492.24, 
oOo 2 1231 4535-05 590.39 ,564 92,579.46 594. ,608.53, 
G2em07 903/-01 ,652.14/ 


NU SON — 


*D ,RINPUT .90,106 


ClG3C7 "C2 Ca 


CAG? 


+++ 
+++ INPUT THE LATENT HEAT OF THE LIQUID, ALSO AT INTERVALS T=100(N-1). 
+++ DODECANE LATENT HEAT VALUES IN RANGE 300-600K (ERGS/G) 


DATA (HLATO(N),N=1,51) /5.160E9,4.64E9,4.12E9,3.6E9, 
1 3.08E9,2.56E9 ,9.4E8,44*0.0/ 
+++ 
+++ INPUT THE LIQUID VAPOR PRESSURE IN DYNES AT INTERVALS T=10(N-1). 
+++ 
DATA (PVAP(N) ,N=1,LVAP) /27*0.0,1.23,3.73,9 .73,2.37E2, 
5.32E2,1.11E3,2.1963,4.07E3,7.24E3,1.23E4,2.02E4, 
3.2E4,4.91E4,7.34E4,1.07E5,1.52E5,2.13E5,2.91E5, 
3.917E5 ,5.186E5 ,6.765E5 ,8.706E5,1.106E6,1.389E6 ,1.73E6, 
2.1227E6,2.571E6,3.093E6,3-695E6,4.386E6,5.176E6,6.07E6, 


HwWN - 
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Bee 1 20,0 2c0r0 , 9. 505E6, 1.093E7 ,1.25187,1.42T7TET,1.62E7, 
6 1.813E7/ 
CER KKRKRKKK KKK EK KK KKK KK KEK KKK KKK KKK HHH KKK KKK KKK KKH KKK KKK KKK KKH HH KK HE 
¥I ,RINPUT.118 
NZMAX=NZ 
*D ,RINPUT.176,177 
*D,RINPUT.217 
*D ,RINPUT.264 
*D ,RINPUT. 362, 376 
*D ,RINPUT .387, 392 
204 WRITE(12,440) 
GO TO 209 
205 WRITE(12,430) 
GO TO 209 
206 WRITE(12,460) 
BOO CALL EXIT 
*D ,SETUP.290 
*D STATE .44,46 
100 WRITE(12,110) T,NCYC,I,J,K,I4,TEMP(I4),SIE(I4),IT,CRANK 
GAGES rT 
*D ,TAPERD .9,10 
*D ,TAPERD.14, 31 
NWSCM=LOC (ZZ )-LOC(AA)+1 
READ(7) (AA(N),N=1,NWSCM) 
IF(NTD .NE.NDUMP) GO TO 40 
NWLCM=LOC (ZZZ1)-LOC (AAA1 )+1 
READ(7) (AAA1(N),N=1,NWLCM) 
NWLCM =LOC (ZZZ2)-LOC (AAA2)+1 
READ(7) (AAA2(N),N=1,NWLCM) 
NWLCM =LOC (ZZZ3)-LOC (AAA3)+1 
READ(7) (AAA3(N),N=1,NWLCM) 
NWLCM =LOC (ZZZ4 )-LOC (AAAY )+1 
READ(7) (AAA4(N),N=1,NWLCM) 
NWLCM =LOC (ZZZ5 )-LOC (AAAS ) +1 
IF(NP.GT.O) READ(7) (AAAS5(N),N=1,NWLCM) 
NWLCM=LOC (ZZZ6)-LOC (AAA6)+1 
IF(NP.GT.0) READ(7) (AAA6(N),N=1,NWLCM) 
WILE M=LOC (2227 )—-LOC (AAAT) +1 
IF(NP.GT.O) READ(7) (AAA7(N) ,N=1 ,NWLCM) 
NWLCM=LOC (ZZZ8)-LOC (AAA8)+1 
READ(7) (AAA8(N) ,N=1,NWLCM) 
WRITE(12,100) NDUMP,T,NCYC,CRANK 
*D , TAPERD. 35, 38 
*D , TAPERD .45 ,47 
4Q WRITE(12,110)NDUMP ,NTD 
GARE EXIT 
*D ,TAPEWR.10, 33 
NWSCM=LOC(ZZ)-LOC(AA)+1 
WRITE(8) (AA(N),N=1,NWSCM) 
NWLCM=LOC (ZZZ1)-LOC(AAA1)+1 
WRITE(8) (AAA1(N),N=1,NWLCM) 
NWLCM=LOC(ZZZ2)-LOC (AAA2)+1 
WRITE(8) (AAA2(N) ,N=1,NWLCM) 
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NWLCM=LOC (ZZZ3 )-LOC (AAA3)+1 
WRITE(8) (AAA3(N),N=1,NWLCM) 
NWLCM=LOC (ZZZ4 )-LOC (AAA4 )+1 
WRITE(8) (AAA4(N) ,N=1,NWLCM) 
NWLCM=LOC (ZZZ5 )-LOC (AAAS )+1 
IF(NP.GT.O) WRITE(8) (AAA5(N) ,N=1,NWLCM) 
NWLCM=LOC (ZZZ6 )-LOC (AAA6)+1 
IF(NP.GT.O) WRITE(8) (AAA6(N) ,N=1,NWLCM) 
NWLCM=LOC (ZZZ7 )-LOC (AAAT)+1 
IF(NP.GT.0) WRITE(8) (AAA7(N),N=1,NWLCM) 
NWLCM=LOC (ZZZ8)-LOC (AAA8)+1 
WRITE(8) (AAA8(N) ,N=1,NWLCM) 
WRITE(12,100) NDUMP,T ,NCYC, CRANK 
NDUM P=NDUMP~-1 
*D,TIMSTP.69,71 
*D ,TIMSTP.79 ,81 
GALL EXIT 
“BECK CBRT 
FUNCTION CBRT(A)° 
THIRD=1./3. 
CBRT=A**THIRD 
RETURN 
END 
*MOVEDK VSTRES:CBRT 
C¥ERRERKEE HEAT FLUX MOD ¥ ¥ XK KR RKKKKKRK KEKE KEK KKK RAK KKK AR KK KERR EKER 
*D , LAWALL.101 
FLUX =2.0*C P* (TBAR-TWALL )* ABS (TAUW/VEL ) 
*D , LAWALL. 178 
FLUX =2 .0*C P* (TBAR-TWALL )* ABS (TAUW/VEL) 
*D , LAWALL. 258 
FLUX =2.0*CP* (TBAR-TWALL)* ABS (TAUW/ VEL) 
CER KRXEKEE FUEL SPRAY CONSTANT DIFFUSIVITY MOD KKEKKEKKKKEKKKKKKKKEKKRKKKEE 
*IDENT TKEFUDRR 
*D , PMOVTV .40, PMOVTV.45 
IF(IMOM.GT.99999 .OR. TURBT(N).GT.T)GOTO 30 
QT=.1*(U(IMOM) *U (IMOM)+V (IMOM)*V (IMOM )+W(IMOM ) *W(IMOM) ) 
TEDDY SZ=169 .5/(SQRT (QT )+1.E-10) 
TS@4=T SDDS Z/ (SORTAQT )+1.E-10) 
VRELED =SQRT ( (UN (IMOM)—-UP(N ) )**2+ (VN (IMOM )-VP(N ) )*¥2 
1 +(WN (IMOM)-WP(N ) )**2) 
TSsG2~1 EDDY SZ/ ( VREBED+1.E-10) 
C¥¥KEXKES PARTICLE DIFFUSION MOD KKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKE 
*IDENT PARDIF 
*D ,PMOVTV.48 
Pe unscefLaeGh.DT)GO TO 25 
RELVEL(N )=SQRT((UN(IMOM)—-UP(N ) )**2+ (VN (IMOM)-VP(N) )*¥2+ 
1 (WN (IMOM)-WP(N) )**2) 
I4=I 4P(N) 
VRELT =RELVEL (N ) 
TG=TP(N )+THIRD* (TEMP(I14)-TP(N)) 
VI SC P=AIRMU1*TG*SQRT (TG) / (TG+AIRMU2 ) 
REY P=AMAX1(1.0E-10,2.0*RO(I4)*RADP(N )* VRELT/ VISCP) 
CD =CVMGT (.424,24 ./REY P*(1.0+SIXTH *REY P* *TWOTHD ) ,REYP.GT.1000. ) 
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DRAGDT=.375*RO(I4)* VRELT*CD*DT/ ( RHO*RADP (N ) ) 
ATD =DRAGDT/DT*TSCALE 

EX PATD =EXP (ATD ) 

EX PMATD=1./EXPATD- 

EXP2ATD =EX PATD ** 2 

TERM1=(1.-EXPMATD )**4 

MeRM2—-EXPZATD/ (EXP2ATD—-1.) 

DTOTD=DT/TSCALE 

EX PATD =EXP (DRACDT ) 
TERM3=DTOTD-(1.-1./EXPADT**2)/(1.—-EXPMATD **2) 
TERM4= (ATD-1.+EXPMATD )** 2*DTOTD 

F SU BX =SQRT (TERM1 * TERM2* TERM 3+TERMH ) 

Fou BAO =DRAGDT—1.+1./EXPADT 

TUR VEL=TUR VEL*FSUBX/FSUBXO 


*I ,PMOVTV.63 


Pe hoenkeE LT .DT) GO TO 40 


C¥*¥*¥*¥*¥*¥* ENHANCED DIFFUSIVITY MOD ¥¥%%%%%% XH HERE RHR KH K HE KEK X 
*D,TIMSTP.8 


- 


IF(T.LT.T2IGN)GO TO 4 
Hehehe 5. )RPR=RPR+.01 
Pan oe ols 5.) RSC=RSC+.01 
IF (ATKE .LT..6 )ATKE=ATKE+ .003 
He CKO Ld 1.0 )THEN 

AQ=A0+.005 

AOME=A0 

A OMOM=A0 
END IF 
TACBO.GT.0)BO=BO0- .005 
DTCON=1 .E+20 


CRKEKKKKEKKKKEKKEKK KEKE KEREKRKEKEKEKKKRKEKEKREKKKR KEKE KEKEKERE 





Ou 


APPENDIX F 


PROCESSING PROGRAM (PRCMDM1) 


CORK HHH KKH KKK HK HK RHR KKK RK EK KKK RHEE KEK HERE K HEH 
PROGRAM PRCMDM1 


PROGRAM PRCMDM1 
WRITTEN BY: A.J.BROWN 


REDUCES 10 ZONE RAW DATA FROM KIVA TO 10 ZONE SMM INPUT. 


C2 OI") C2 CG? a) -) 


PARAMETER (NF=9 ,NZ=10 ,NZP1=11 ) 
DIMENSION ZQCOMB(NZ),ZMEVAP(NZ),ZQWALL(NZ),ZVOL(NZ),ZFMF(NZ), 
2 ZBETA(NZ),ZMFBRN(NZ),ZM(NZ),ZNO(NZ),ZML(NZ),ZMV(NZ), 
3. ZMBF (NZ), ZTEMP(NZ) 
DIMENSION ZMOLD(NZ),ZMLOLD(NZ),ZMVOLD(NZ),ZMBFO(NZ), 
1 ZVOLO(NZ) 
DIMENSION FM(NF),FML(NF),FMV(NF),FMBF (NF) ,B(NZ) 
CHARACTER*30 NAME 
READ (11,901 )NAME,CA1INJ ,RPM 
WRITE (4,901 )NAME,CA1INJ ,RPM 
READ (12,* )CA1INJ ,SWIRL,EGR,T2IGN 
WRITE (4,*)CA1INJ ,SWIRL,EGR 
READ (12,* )N 
N1=N-1 
WRITE(4,*)N1 
DO 50 I=1 NZ 
Bi 0. 
50 CONTINUE 
DO 100 I=1,N 
READ(11,905)T,P 
READ (11,906) (ZM(K) ,K=1,NZ) 
READ( 11,906) (ZML(K) ,K=1,NZ) 
READ (11,906) (ZMV(K) ,K=1,NZ) 
READ( 11,906) (ZMBF(K) ,K=1,NZ) 
READ (11,906) (ZTEMP(K) ,K=1,NZ) 
READ( 11,906) (ZQCOMB(K),K=1,NZ) 
READ (11,906) (ZMEVAP(K) ,K=1,NZ) 
READ( 11,906) (ZQWALL(K),K=1 ,NZ) 
READ (11,906) (ZMFBRN (K) , K=1,NZ) 
READ( 11,906) (ZNO(K) ,K=1 ,NZ) 
READ (11,906) (ZVOL(K) , K=1,NZ) 
READ( 11,906) (ZFMF(K),K=1,NZ) 
READ( 11,906) (ZBETA(K) ,K=1,NZ) 
€ 
C READ ZBETA'S WITHOUT ENHANCED DIFFUSIVITY 
Ee 
IF(T.GE.T2IGN) READ(15,*)(ZBETA(K) , K=1,NZ) 





110 


120 


150 
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DO 110 L=1,1 0 
IF(ZM(L).LE.0. ) THEN 
ZNO(L)=0. 
ELSE 
ZNO(L)=ZNO(L)/ZM(L) 
END IF 
ZBETA(L)=50.*ZBETA (L) 
CONTINUE 


DO 120 L=1,10 
IF (ZBETA(L).GT.1.E4)ZBETA(L)=1.E4 
Meese ).LE.O.)ZBETA(L)=B(L) 
B(L)=ZBETA(L) 

CONTINUE 


IF(I.EQ.1)GO TO 200 
FM(1)=ZMOLD(1 )—ZM(1)+ZMEVAP(1 ) 
FMV (1 )=ZMVOLD (1 )—ZMV (1 )+ZMEVAP(1 )—ZMFBRN (1) 
FMBF (1 )=ZMBFO(1)-— ZMBF (1 )+ZMFBRN(1 ) 
DO 150 L=2,9 
FM (L )=ZMOLD (L )~ZM(L)+ZMEVAP(L)+FM(L~1 ) 
FMV (L )=ZMVOLD(L)— ZMV (L )+ ZMEVAP (L)— ZMFBRN (L )+EMV (L~1 ) 
FM BF (L )=ZMBFO(L )-ZMBF (L )+ZMFBRN (L )+FMBF (L-1 ) 
CONTINUE 
FML (9 )=ZML(10)-ZMLOLD(10)+ZMEVAP(10) 
DO 160 L=8,1,71 
- FML(L)=ZML(L+1)-ZMLOLD (L+1)+ZMEVAP(L+1 )+FML(L+1) 
CONTINUE 
FMLO=ZML (1 )-ZMLOLD (1 )+ZMEVAP (1 )+FML (1) 


WRITE(4 ,910)T,P 

WRITE (4,906) (FM(L) ,L=1,9) 
WRITE(4 ,906) (FMV(L),L=1,9) 

WRITE (4,906 )EMLO, (ZML(L),L=1,10) 
WRITE (4 ,906) (FMBF(L),L=1,9) 
WRITE (4,906) (ZTEMP(L) ,L=1,10) 
WRITE(4,906) (ZNO(L),L=1,10) 
WRITE (4,906) (ZMEVAP(L) ,L=1,10) 
WRITE(4 ,906) (ZQWALL(L),L=1,10) 
WRITE (4,906) (ZMFBRN(L) ,L=1,10) 
WRITE(4 ,906) (ZVOL(L) ,L=1,10) 
WRITE (4,906) (ZFMF(L) ,L=1,10) 
WRITE(4 ,906) (ZBETA(L),L=1,10) 
WRITE (4,908 )ZM(10) , MV(10) , MBF(10) 


POme 50 i=. 10 
ZMOLD (J )=ZM (J ) 
ZMLOLD (J )=ZML (J ) 
ZMVOLD (J )=ZMV(J ) 
ZMBFO (J )=ZMBF (J) 
ZVOLO(J )=ZVOL(J ) 
CONTINUE 
IF(I.GT.1)GO TO 100 
WRITE (4 ,902)P 





100 


901 
902 
905 
906 
908 
910 
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CONTINUE 


BORMAT(A30,/,1X,F6.1,2X,F6.1) 
FORMAT (1X,F8.4) 

FORMAT (1X,E13.5,1X,F8.4) 
FORMAT(1X,6E13.4) 
FORMAT (1X, 3E13.4) 
FORMAT(1X,E13.5,1X,F8.4) 


CALL EXIT 
END 


CER KKEKKKKRKKRK KK KKK RKKKKKKKKKKKKKKKKKKKKKKKKKKKRKKKKKAKKKKKKREE 
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APPENDIX G 


ENGINE TEST DATA 
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